Printing using VBA.
To display print preview window with fit to page:
With Worksheets("dataImport").PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
Worksheets("Sheet Name").PrintPreview
Print preview above will show old style preview window. To open File>Print window use code below:
Worksheet.Activate
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Possible Options:
.Orientation = xlLandscape
.CenterHeader =
.RightFooter =
.LeftFooter =
.CenterFooter =
.Orientation = xlPortrait
.topMargin = Application.CentimetersToPoints(value)
.leftMargin = Application.CentimetersToPoints(value)
.rightMargin = Application.CentimetersToPoints(value)
.bottomMargin = Application.CentimetersToPoints(value)
.headerMargin = Application.CentimetersToPoints(value)
.footerMargin = Application.CentimetersToPoints(value)
.paperSize = xlPaperA4
Paper Size table:
| Name | Description |
| xlPaperLetter | Letter (8-1/2 in. x 11 in.) |
| xlPaperLetterSmall | Letter Small (8-1/2 in. x 11 in.) |
| xlPaperTabloid | Tabloid (11 in. x 17 in.) |
| xlPaperLedger | Ledger (17 in. x 11 in.) |
| xlPaperLegal | Legal (8-1/2 in. x 14 in.) |
| xlPaperStatement | Statement (5-1/2 in. x 8-1/2 in.) |
| xlPaperExecutive | Executive (7-1/2 in. x 10-1/2 in.) |
| xlPaperA3 | A3 (297 mm x 420 mm) |
| xlPaperA4 | A4 (210 mm x 297 mm) |
| xlPaperA4Small | A4 Small (210 mm x 297 mm) |
| xlPaperA5 | A5 (148 mm x 210 mm) |
| xlPaperB4 | B4 (250 mm x 354 mm) |
| xlPaperB5 | A5 (148 mm x 210 mm) |
| xlPaperFolio | Folio (8-1/2 in. x 13 in.) |
| xlPaperQuarto | Quarto (215 mm x 275 mm) |
| xlPaper10x14 | 10 in. x 14 in. |
| xlPaper11x17 | 11 in. x 17 in. |
| xlPaperNote | Note (8-1/2 in. x 11 in.) |
| xlPaperEnvelope9 | Envelope #9 (3-7/8 in. x 8-7/8 in.) |
| xlPaperEnvelope10 | Envelope #10 (4-1/8 in. x 9-1/2 in.) |
| xlPaperEnvelope11 | Envelope #11 (4-1/2 in. x 10-3/8 in.) |
| xlPaperEnvelope12 | Envelope #12 (4-1/2 in. x 11 in.) |
| xlPaperEnvelope14 | Envelope #14 (5 in. x 11-1/2 in.) |
| xlPaperCsheet | C size sheet |
| xlPaperDsheet | D size sheet |
| xlPaperEsheet | E size sheet |
| xlPaperEnvelopeDL | Envelope DL (110 mm x 220 mm) |
| xlPaperEnvelopeC5 | Envelope C5 (162 mm x 229 mm) |
| xlPaperEnvelopeC3 | Envelope C3 (324 mm x 458 mm) |
| xlPaperEnvelopeC4 | Envelope C4 (229 mm x 324 mm) |
| xlPaperEnvelopeC6 | Envelope C6 (114 mm x 162 mm) |
| xlPaperEnvelopeC65 | Envelope C65 (114 mm x 229 mm) |
| xlPaperEnvelopeB4 | Envelope B4 (250 mm x 353 mm) |
| xlPaperEnvelopeB5 | Envelope B5 (176 mm x 250 mm) |
| xlPaperEnvelopeB6 | Envelope B6 (176 mm x 125 mm) |
| xlPaperEnvelopeItaly | Envelope (110 mm x 230 mm) |
| xlPaperEnvelopeMonarch | Envelope Monarch (3-7/8 in. x 7-1/2 in.) |
| xlPaperEnvelopePersonal | Envelope (3-5/8 in. x 6-1/2 in.) |
| xlPaperFanfoldUS | U.S. Standard Fanfold (14-7/8 in. x 11 in.) |
| xlPaperFanfoldStdGerman | German Legal Fanfold (8-1/2 in. x 13 in.) |
| xlPaperFanfoldLegalGerman | German Legal Fanfold (8-1/2 in. x 13 in.) |
| xlPaperUser | User-defined |
