• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Afdrukken naar PDF

Status
Niet open voor verdere reacties.

blmsth

Gebruiker
Lid geworden
26 feb 2013
Berichten
47
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
 
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...
 
Plaats eens een voorbeeld van een document waarmee je dat zou willen doen.
 
In het verleden al eens gemaakt voor iemand.

Code:
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
 
Bedankt allemaal voor jullie reacties, we gaan ermee aan de slag.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan