Diverse VBA Makros: Drucken mit Word. PrintOut, PrintReverse | |
Drucken aktuelle Seite | Sub DruckenAktuelleSeite() |
On Error Resume Next | |
Application.PrintOut filename:="", _ | |
Range:=wdPrintCurrentPage, _ | |
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _ | |
PageType:=wdPrintAllPages, Collate:=True, _ | |
Background:=True, PrintToFile:=False | |
End Sub | |
Drucken des markierten Textes | Sub DruckenMarkierung() |
On Error Resume Next | |
Options.PrintReverse = True | |
Application.PrintOut filename:="", Range:=wdPrintSelection, _ | |
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _ | |
PageType:=wdPrintAllPages, Collate:=True, _ | |
Background:=True, PrintToFile:=False | |
End Sub | |
Drucken 2 Seiten pro Blatt | Sub Drucken_2_Seiten_pro_Blatt() |
On Error Resume Next | |
Options.PrintReverse = False | |
Application.PrintOut filename:="", _ | |
Range:=wdPrintAllDocument, _ | |
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _ | |
PageType:=wdPrintAllPages, Collate:=True, _ | |
Background:=True, PrintToFile:=False, _ | |
PrintZoomColumn:=2, PrintZoomRow:=1, _ | |
PrintZoomPaperWidth:=0, _ | |
PrintZoomPaperHeight:=0 | |
End Sub | |
Drucken 4 Seiten pro Blatt | Sub Drucken_4_Seiten_pro_Blatt() |
On Error Resume Next | |
With Options | |
.UpdateFieldsAtPrint = True | |
.UpdateLinksAtPrint = False | |
.DefaultTray = "Druckereinstellungen verwenden" | |
.PrintBackground = True | |
.PrintProperties = False | |
.PrintFieldCodes = False | |
.PrintComments = False | |
.PrintHiddenText = False | |
.PrintDrawingObjects = True | |
.PrintDraft = False | |
.PrintReverse = False | |
.MapPaperSize = False | |
End With | |
With ActiveDocument | |
.PrintPostScriptOverText = False | |
.PrintFormsData = False | |
End With | |
Application.PrintOut filename:="", _ | |
Range:=wdPrintAllDocument, _ | |
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _ | |
PageType:=wdPrintAllPages, Collate:=True, _ | |
Background:=True, PrintToFile:=False, _ | |
PrintZoomColumn:=2, PrintZoomRow:=2, _ | |
PrintZoomPaperWidth:=11907, _ | |
PrintZoomPaperHeight:=16839 | |
End Sub |
Mehr Tipps: Word - Automatisch Makros ausführen
Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!
Nutzen Sie unsere Suchfunktion:
Nach oben
Sitemap
Impressum
Datenschutz