Komentari
1.366 Kali Dilihat

Cara membedakan hasil printout dari button macro dengan default dari excelnya

  1. 6 tahun lalu
    Y

    yos.nugroho

    20 Jul 2018 + 463 Poin

    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

    20 Jul 2018 Terverifikasi Indonesia + 20.101 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. Y

    yos.nugroho

    20 Jul 2018 + 463 Poin

    Terima kasih mas @Caton sdh sesuai..

  4. M

    manweljs_

    20 Jul 2018 Terverifikasi + 11.321 Poin
    Di sunting 6 tahun 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. Y

    yos.nugroho

    23 Jul 2018 + 463 Poin

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

    Terimakasih master mas @manweljs_ ...

 

atau Mendaftar untuk ikut berdiskusi!