So we built better training tools.
-Dedicated Cloud Servers
All at your fingertips. What are you waiting for?
' Highlight the full range used on sheet and set print area and printing properties ' objRange1 = .Range(.Cells(#1st Row, #1st Col), .Cells(#Rows, #Last Col)) objRange1 = .Range(.Cells(1, 1), .Cells(intSpreadsheetRow, 8)) objRange1.Select() With .PageSetup .PrintArea = objRange1.Address .LeftHeader = "" .CenterHeader = "Un-Allocated Sales Order Lines with Free Stock" .RightHeader = "" .LeftFooter = "" .CenterFooter = "Page &P of &N" .RightFooter = "" .PrintHeadings = False .PrintGridlines = False .PrintComments = Excel.XlPrintLocation.xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = Excel.XlPageOrientation.xlLandscape .Draft = False .PaperSize = Excel.XlPaperSize.xlPaperA4 .FirstPageNumber = Excel.Constants.xlAutomatic .Order = Excel.XlOrder.xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 '.FitToPagesTall = 0 .PrintErrors = Excel.XlPrintErrors.xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True End With
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.