Selamat Pagi, Mr Kid
Ok, terima kasih, Dari seseorang, untuk ukuran : activesheet.pagesetup.PaperSize = xlPaperFolio Terima kasih semua. Salam, Kelik From: [email protected] [mailto:[email protected]] On Behalf Of Mr. Kid Sent: 14 Nopember 2012 13:51 To: [email protected] Subject: Re: [belajar-excel] Kode cetak dng ukuran kertas, posisi landskip/portrait 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
