Sub printsheett()
Dim ptname As String
Set pgst = ActiveSheet.PageSetup
ptname = “Canon LBP2900Plus”
With pgst
.PaperSize = xlPaperA4 ‘A4纸
.Orientation = xlLandscape ‘横向,纵向:xlPortrait
.FitToPagesWide = 1 ‘宽高为一页
.FitToPagesTall = 1
.CenterHorizontally = True ‘水平居中
.CenterVertically = True
End With
ActiveSheet.PrintPreview
ActiveSheet.PrintOut ActivePrinter:=ptname’指定打印机
End Sub