Macro print en save PDF

[JakobH]

Ik heb een Excel file met 10 tabs (pakbon 1, pakbon 2, etc). Iedere tab is een pakbon met een ordernr in cel c16

Ik zoek een macro die eerst vraagt hoeveel pakbonnen er geprint moet worden (als twee dan worden de pakbonnen in sheet Pakbon 1 en Pakbon 2 geprint ). Dan printen op papier vanuit de standaard printer en vervolgens als PDF (één PDF per pakbon). Waarbij ordernummer de naam moet zijn van de PDF en locatie is bijvoorbeeld C:\pakbonnen

Is dit te realiseren?

 

[VenA]

Zoiets?

Sub VenA()
c00 = "M:\Temp\"
On Error GoTo oeps
For j = 1 To InputBox("Aantal bonnen")
  With Sheets("Pakbon " & j)
    .PrintPreview '.printout
    .ExportAsFixedFormat 0, c00 & .[c16] & ".pdf"
  End With
Next j
oeps:
End Sub

 

[JakobH]

Ja! Bedankt voor de snelle reactie