richard1970
Terugkerende gebruiker
- Lid geworden
- 12 mei 2005
- Berichten
- 2.663
Hoi,
Eind maart heeft Warm Bakkertje een macro aangeleverd om voor een tabblad per pagina (gescheiden doorPageBreaks) een PDF te maken.
Zie: http://www.helpmij.nl/forum/showthre...and?highlight=
Ik heb twee aanvullende vragen:
1) De naam is nu de naam van het bestand en kan handmatig aangepast worden in het dialoogvenster 'Opslaan als'. Kan de naam bepaald worden door de waarde uit twee cellen en de datum van de dag (opmaak YYYMMDD)? Als het in principe kan, kan ik aangeven welke cellen dat zijn, want per pagina is dat dezelfde kolom, maar een andere rij, of dezelfde rij maar dan een andere kolom.
2) Kan de macro zo gemaakt worden dat het bestand automatisch opslaat? In de bijgevoegde macro moet je zelf telkens op OK klikken, maar het gaat soms om 100 PDF's.
De huidige macro:
Ik hoor het graag.
Groeten,
Richard
Eind maart heeft Warm Bakkertje een macro aangeleverd om voor een tabblad per pagina (gescheiden doorPageBreaks) een PDF te maken.
Zie: http://www.helpmij.nl/forum/showthre...and?highlight=
Ik heb twee aanvullende vragen:
1) De naam is nu de naam van het bestand en kan handmatig aangepast worden in het dialoogvenster 'Opslaan als'. Kan de naam bepaald worden door de waarde uit twee cellen en de datum van de dag (opmaak YYYMMDD)? Als het in principe kan, kan ik aangeven welke cellen dat zijn, want per pagina is dat dezelfde kolom, maar een andere rij, of dezelfde rij maar dan een andere kolom.
2) Kan de macro zo gemaakt worden dat het bestand automatisch opslaat? In de bijgevoegde macro moet je zelf telkens op OK klikken, maar het gaat soms om 100 PDF's.
De huidige macro:
Code:
Sub page_to_PDF()
Dim HPC As Integer
HPC = ActiveSheet.HPageBreaks.Count + 1
Application.ActivePrinter = "CutePDF Writer op CPW2:"
For i = 1 To HPC
ActiveWindow.SelectedSheets.PrintOut From:=i, to:=i, Copies:=1, ActivePrinter:="CutePDF Writer op CPW2:", Collate:=True
Next
End Sub
Ik hoor het graag.
Groeten,
Richard