Hallo,
aus Word heraus klappt das mit folgendem Code, vielleicht kann man den anpassen?
########################################
Sub DruckeAktuelleSeite()
'
' Druckt die Seite, in der die Einfügemarke gerade ist, auf den Drucker "FreePDF"
Dim strPage As String
strPage = Selection.Information(wdActiveEndPageNumber)
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
ActivePrinter = "FreePDF"
Application.PrintOut FileName:="", Range:=wdPrintSelection, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
|