| 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 |
| |