VBA print settings related properties and methods

Print Setup instructions, the following are the default values.  withActiveSheet.PageSetup. PrintTitleRows=""                                'Worksheet print Title: Top header row (R). PrintTitleColumns =""                             'Worksheet print Title: Left Left title column (C)End  withActiveSheet.PageSetup.PrintArea=""                    'Worksheet print Area (A) withActiveSheet.PageSetup. LeftHeader=""                                    'Custom Header: Left (L). CenterHeader =""                                  'Header/Custom header: Medium (C). RightHeader =""                                   'Custom Header: Right (R). LeftFooter =""                                    'Custom footer: Left (L). CenterFooter =""                                  'Footer/Custom footer: Medium (C). RightFooter =""                                   'Custom footer: Right (R). LeftMargin = Application.inchestopoints (0.75)'Margins : Left (L) _1.9 cm. RightMargin = Application.inchestopoints (0.75)'Margins : Right (R) _1.9 cm. TopMargin = Application.inchestopoints (1)'Margins : Up (T) _2.5 cm. BottomMargin = Application.inchestopoints (1)'Margins : Lower (B) _2.5 cm. HeaderMargin = Application.inchestopoints (0.5)'Margins : Header (A) _1.3 cm. FooterMargin = Application.inchestopoints (0.5)'Margins : Footer (F) _1.3 cm. PrintHeadings =False                              'Worksheet print: Row number column label (L). PrintGridlines =False                             'Sheet Print: Grid lines (G). PrintComments = xlprintnocomments'Worksheet print Annotation (M): none/(at the end of the worksheet) xlprintsheetend/(as shown on the worksheet) Xlprintiace    . PrintQuality= the                                 'page Print quality (Q): 180/360 Dots. CenterHorizontally =False                         'Center margin: horizontal (Z). CenterVertically =False                           'Center margin: Vertical (V). Orientation = xlportrait'page Orientation: Portrait (T) xlportrait/Landscape (L) Xllandscape. Draft =False                                      'Worksheet Printing: By draft (Q). PaperSize = xlPaperA4'page paper Size (Z): A4. FirstPageNumber = xlautomatic'page Start Page: Automatic. Order = Xldownthenover'Worksheet Print Order: First row (D)/After column (V) Xloverthendown    . BlackAndWhite=False                              'Sheet Print: Monochrome printing (B). Zoom = -                                         'page magnification: 100% If you select a page scale, the following two items do not. . Zoom =False                                       'page Scaling: Not selected if you select the Adjustment page, this entry must be false and appears with the following two items. . FitToPagesWide =1                                 'page Zoom: Adjust to 1 page height. FitToPagesTall =1                                 'page Zoom: adjust to 1 page width. PrintErrors = xlprinterrorsdisplayed'Worksheet Print Error cell printed as (E): Display value/< blank > xlprinterrorsblank/--xlprinterrorsdash/#N/a Xlprinterrorsna
Endwith 

　

VBA print settings related properties and methods