Cara membedakan hasil printout dari button macro dengan default dari excelnya

  1. 2 bulan yang lalu

    Dear Para Master Excel,

    Mohon bantuannya bagaimana cara membedakan hasil printout dari button macro dengan default dari excelnya ??
    apakah bisa diberi footer jika diklik dari button macro akan muncul footer nya, jika menggunakan print default dari excel, tidak muncul di printout ?

    Mohon pencerahannya..
    Contoh_doc.xlsm

  2. Caton

    Jul 20 Terverifikasi Indonesia + 11.512 Poin

    Coba mas @yos.nugroho modifikasi prosedur Sub PrintMe menjadi:

    Sub PrintMe()
        x = xPrint.Range("A" & Rows.Count).End(xlUp).Row
        With Sheets("PC_1")
            If .Range("o1") > 2 Then
                MsgBox "Dokumen ini sudah mencapai batas maksimal untuk dicetak"
            Else
                .Range("N1").Copy xPrint.Range("A" & x + 1)
                .PageSetup.PrintArea = "$B$2:$J$59"
                '+--- Tambahkan Page Footer!
                .PageSetup.CenterFooter = "&""Tahoma,Bold""&10Printed by excel macro"
                 Application.Dialogs(xlDialogPrinterSetup).Show
                '+--- Hapus kembali Page Footer!
                .PrintOut
                .PageSetup.CenterFooter = ""
            End If
        End With
    End Sub

    Demikian, semoga sesuai... :)

  3. Terima kasih mas @Caton sdh sesuai..

  4. manweljs_

    Jul 20 Terverifikasi + 5.020 Poin
    Di sunting 2 bulan yang lalu oleh manweljs_

    mas @Caton izin nimbrung yak

    @yos.nugroho

    terlampir solusi lain dari saya, intinya pengguna bebas menggunakan print default namun tetap dibatasi sampai 3 kali

  5. Mas @manweljs_ ternyata bisa juga ya default printer dari excelnya ikut di validasi..hehehe

    Terimakasih master mas @manweljs_ ...

 

atau Mendaftar untuk ikut berdiskusi!