VBA code afprinten verschillende werkbladen

[Tine83]

Hallo

ik zoek nog een formule om mijn vba code te vervolledigen. Op blad 1 (invullen!) staan alle buttons. De bedoeling is om naar wens af te printen wat ik nodig heb. Nu heb ik 1 tricky werkblad: Adreslabels. Dit hangt af van het aantal paletten. dit staat op blad 1 (invullen) in cel B7 (aantal paletten). Als er bv. 1 staat moet hij range A1 tem I38 afdrukken, bij 2 A1 tem I76. Dus bij de "I" komen er telkens 38 rijen bij per extra palet.

Hier is de code dat ik nu al heb:


Option Explicit
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Bestelbon.[A1:J50].PrintOut , , 1
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Paklijst.[A1:J50].PrintOut , , 1
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Verzendnota.[A1:J50].PrintOut , , 2
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Adreslabel.[A1:I38].PrintOut , , 1 (range: hier zou het aantal paletten vanaf hangen)
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
Transportopdracht.[A1:C38].PrintOut , , 1
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton6_Click()
Application.ScreenUpdating = False
Afhaalopdracht.[A1:C17].PrintOut , , 1
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton7_Click()
Application.ScreenUpdating = False
Factuur.[A1:J56].PrintOut , , 1
Application.ScreenUpdating = True
End Sub

 

[HSV]

Private Sub CommandButton4_Click()
 With Sheets("Adreslabel")
    .PageSetup.PrintArea = .Range("A1:I" & Sheets("Invullen").Range("B7").Value * 38).Address
    .PrintPreview
   End With
 End Sub

 

[Tine83]

Dank je Harry! Dit werkt! Kan ik ook de printpreview weglaten? of loopt het dan net goed? (Ik ben momenteel niet op't werk, dus kan niet testen )
Kan je met command buttons ook een pdf maken van elke sheet? Momenteel heb ik deze code:

Sub PDFBB()
Dim BBName As String

BBName = ActiveSheet.Range("I10").Value '

If Dir("C:\Users\Wouter\Dropbox\Overzicht bestellingen en stock\2014\Bestellingen\PDF\Bestelbonnen\" & "BB" & BBName & ".pdf") <> "" Then
MsgBox "Het bestand: " & "BB" & BBName & ".pdf bestaat reeds" '
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Wouter\Dropbox\Overzicht bestellingen en stock\2014\Bestellingen\PDF\Bestelbonnen\" & "BB" & BBName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

End If
End Sub

Ik zou hier graag op blad 1 commandbuttons van maken, maar weet niet goed wat ik hieraan moet veranderen dan.

 

[HSV]

Je kan PrintPreview vervangen door Printout.
Voor het testen scheelt dit papier en inkt.

Er zijn talloze voorbeelden op het forum over een Pdf maken.

 

[Tine83]

dank je. Voor de PDF heb ik een aantal codes gevonden, maar hier staat telkens: activesheet, hoe kan ik dit best vervangen? Het verwijzen naar een ander blad?

 

[HSV]

Bv.

Sheets("Blad1").ExportAsFixedFormat Type

 

[Tine83]

dank je! alles werkt! :d

 

[HSV]

Je had zelf het foutje al snel ontdekt.

BBName = Sheets("Bestelbon")[COLOR="#FF0000"].range[/COLOR]("I10").Value '