Sir I want an auto page set up and print macro for worksheet and workbook print as my choice.
Need to print/portrait/landscape as choice.
If portrait zoom = 70 zoom
If landscape =100% zoom
Ø Dialog box ask question to print worksheet or workbook
Ø Dialog box need to print (portrait/landscape)
Ø Dialog box need to print (from which page to which page) or all page
Ø Need to print Page Number and continue on next Page)
Data Range for worksheet A1 to Xldown.
Row repeat at every sheet = A1 row
Paper size = xlpaperA4
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.PaperSize = xlPaperA4
.Zoom = 100
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintQuality = 600dpi
.Draft = False
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Need to print/portrait/landscape as choice.
If portrait zoom = 70 zoom
If landscape =100% zoom
Ø Dialog box ask question to print worksheet or workbook
Ø Dialog box need to print (portrait/landscape)
Ø Dialog box need to print (from which page to which page) or all page
Ø Need to print Page Number and continue on next Page)
Data Range for worksheet A1 to Xldown.
Row repeat at every sheet = A1 row
Paper size = xlpaperA4
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.PaperSize = xlPaperA4
.Zoom = 100
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintQuality = 600dpi
.Draft = False
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True