Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Printing Macro
I have written a macro to enable me to print on plain paper. The macro
controls the page setup and printing options so they all relate to the tray with plain paper in. I have done this for other paper types as well. However when i try to use them i get an error all regarding one specific line of text. The error on all the macros occurs in the second line -- .Orientation = wdOrientPortrait-- Here is the macro in full, i wrote it by actually performing the actions as opposed to writting the text. Sub Plain() ' ' Plain Macro ' Macro recorded 26/06/2007 by jodywilliams ' With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2) .BottomMargin = CentimetersToPoints(2) .LeftMargin = CentimetersToPoints(2) .RightMargin = CentimetersToPoints(2) .Gutter = CentimetersToPoints(0) .HeaderDistance = CentimetersToPoints(1.27) .FooterDistance = CentimetersToPoints(1.27) .PageWidth = CentimetersToPoints(21) .PageHeight = CentimetersToPoints(29.7) .FirstPageTray = 258 .OtherPagesTray = 258 .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = True .MirrorMargins = False .TwoPagesOnOne = False .GutterPos = wdGutterPosLeft End With With Options .UpdateFieldsAtPrint = False .UpdateLinksAtPrint = False .DefaultTray = " Tray 3" .PrintBackground = True .PrintProperties = False .PrintFieldCodes = False .PrintComments = False .PrintHiddenText = False .PrintDrawingObjects = True .PrintDraft = False .PrintReverse = False .MapPaperSize = True 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:=0, _ PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 End Sub Is there an easy way to overcome this? Many thanks for your help in advance, Jody |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating a macro to run a merge and then printing , then save | Mailmerge | |||
Help needed w/booklet-printing macro, round 2 | Page Layout | |||
Help needed: booklet-printing macro not working correctly | Page Layout | |||
printing double side from command line macro in MS word | Microsoft Word Help | |||
printing labels from a form using a macro | Formatting Long Documents |