Mas Kelik. Landscape atau portrait itu disebut orientasi. Jadi gunakan properti Orientation
activesheet.pagesetup.orientation = xlLandscape atau activesheet.pagesetup.orientation = xlPortrait Wassalam, Kid. 2012/11/14 Kelik Pitoyo <[email protected]> > ** > > > Dear Be Exceller,**** > > ** ** > > Langsung ke TKP, Bila pengkodean cetak sbb:**** > > ** ** > > Private Sub CommandButton1_Click()**** > > ' cetak Macro**** > > ' print 100%**** > > ** ** > > Application.ScreenUpdating = False**** > > ActiveSheet.PageSetup.PrintArea = "$x$3:$ag$25"**** > > With ActiveSheet.PageSetup**** > > .TopMargin = Application.InchesToPoints(0.1358267716535)**** > > .BottomMargin = Application.InchesToPoints(0.33110236220472)**** > > .RightMargin = Application.InchesToPoints(0.11110236220472)**** > > .LeftMargin = Application.InchesToPoints(0.100000236220472)**** > > .Zoom = 100**** > > End With**** > > ActiveWindow.SelectedSheets.PrintPreview**** > > Application.ScreenUpdating = True**** > > **** > > End Sub**** > > ** ** > > Bila ingin menambahkan ukuran kertas dan posisi Landskip atau Portrait, > bagaimana pengkodeannya ya?**** > > Mohon bantuannya?**** > > Terima kasih sebelumnya,**** > > Salam,**** > > Kelik **** > > >
