Beste forumleden,
Graag hulp bij de volgende Macro die een brief voorziet van een verzenddatum, print en opslaat als PDF. Sinds ik de mogelijkheid van het afdrukken van meerdere prints (vet) heb ingebouwd wordt het document niet meer opgeslagen op de ingegeven locatie maar in de standaardmap (in dit geval H:\Word)
In de Macro is toegevoegd "Afdruk = InputBox ("Aantal Printjes")" en "Copies:=afdruk" (waar voordien 1 stond). De macro wordt verder zonder foutmelding uitgevoerd.
Bij voorbaat dank.
Graag hulp bij de volgende Macro die een brief voorziet van een verzenddatum, print en opslaat als PDF. Sinds ik de mogelijkheid van het afdrukken van meerdere prints (vet) heb ingebouwd wordt het document niet meer opgeslagen op de ingegeven locatie maar in de standaardmap (in dit geval H:\Word)
In de Macro is toegevoegd "Afdruk = InputBox ("Aantal Printjes")" en "Copies:=afdruk" (waar voordien 1 stond). De macro wordt verder zonder foutmelding uitgevoerd.
Bij voorbaat dank.
Code:
Sub VdPBnOl()
'
' Macro zet Verzenddatum, Print het document, Vraagt om een Bestandnaam en Opslaglacatie
'
'
Selection.InsertDateTime DateTimeFormat:="d MMMM yyyy", InsertAsField:= _
True, DateLanguage:=wdDutch, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
[B]Afdruk = InputBox ("Aantal Printjes")
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=Afdruk, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0[/B]
Naam = InputBox("Bestandsnaam")
Directory = InputBox("Path")
ActiveDocument.ExportAsFixedFormat OutputFileName:=Naam, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=True
' ChangeFileOpenDirectory "Directory"
End Sub
Laatst bewerkt: