Printen meerdere werkbladen

Status
Niet open voor verdere reacties.
D

Doohan

Gebruiker
Lid geworden
20 mrt 2012
Berichten
374
Beste Helper,

Onderstaand heb ik volgende code om deze werkbladen te printen.

Code: 
Sub PrintAll()
For j = 1 To 53
Sheets("WEEK " & j).Range("A2:J47").PrintOut
Next
End Sub

In dit geval ontvangt de printer 53 printopdrachten. Kan iemand mij vertellen hoe de code eruit zou moeten zien zodat dit 1 printopdracht wordt.

Bij voorbaat dank,
 
Probeer dit eens:
Code: 
Sub PrintAll()
    Dim shts() As String
    For j = 0 To 52
        ReDim Preserve shts(j)
        shts(j) = "WEEK " & j + 1
    Next
    Sheets(shts()).Select
    ActiveSheet.Range("A2:J47").PrintOut
End Sub
 
Hoi Edmoor,

Bedankt voor je code het is inderdaad 1 printopdracht geworden zoals ik gevraagd had, maar helaas doet hij maar 1 werkblad en niet 53.
 
Dat is vreemd.
Hier doet 'ie ze alle 53.

Ik had wel voor de test de printopdracht gewijzigd in een export naar PDF en daar zitten dan alle geselecteerde werkbladen in.
heb je er iets aan gewijzigd?
 
Laatst bewerkt:
Hoi Edmoor,

Ik heb aan de code niets gewijzigd.
Ik heb std printer geprobeerd. ook heb ik xps als std printer geprobeerd maar het resultaat blijft 1 blad .
 
Plaats dan dat document eens.
 
Ik heb het iets kleiner moeten maken dus minder weken
Hierbij het bestandje
 

Bijlagen

  • Kalender helpmij.xlsb
    116,3 KB · Weergaven: 28
Doe het eens zo:
Code: 
Sub PrintAll()
    Dim shts() As String
    For j = 0 To 7
        ReDim Preserve shts(j)
        shts(j) = "WEEK " & j + 1
    Next
    Sheets(shts()).PrintOut
    
[COLOR="#008000"]    'Sheets(shts()).Select
    'ActiveSheet.Range("A2:J47").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ("userprofile") & "\desktop\Kalender helpmij.pdf"[/COLOR]
End Sub

Het PDF voorbeeld is misschien een aardig extraatje.
 
Laatst bewerkt:
Excuses voor de late reactie bedankt Edmoor,

Je bent wederom een kanjer.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan