Afdrukken naar PDF

[blmsth]

Goede middag

Bestaat de mogelijkheid om bij het afdrukken van een Excel document naar PDF, per “pagina einde” automatisch een nieuw PDF-document aan te maken?

Alvast bedankt voor jullie reactie!
Tom

 

[DigiCafee]

Dat zal er van afhangen welke virtuele printer je gebruikt en de instellingen die de driver van die printer laat aansturen.
De scan-module van mijn scanner doet dat, dus het moet mogelijk zijn...

 

[edmoor]

Plaats eens een voorbeeld van een document waarmee je dat zou willen doen.

 

[HSV]

In het verleden al eens gemaakt voor iemand.

Sub hsv()
Dim j As Long, a As String, b As String
For j = 1 To Blad1.HPageBreaks.Count
 a = IIf(j = 1, Range("A1").Address, b)
  Blad1.Range(a, Blad1.HPageBreaks.Item(j).Location.Address).Resize(, blad1.usedrange.columns.count).ExportAsFixedFormat 0, "c:\temp\pdfje" & j
 b = Blad1.HPageBreaks.Item(j).Location.Address
Next j
End Sub

 

[blmsth]

Bedankt allemaal voor jullie reacties, we gaan ermee aan de slag.