[belajar-excel] Kode cetak dng ukuran kertas, posisi landskip/portrait

[Kelik Pitoyo]

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