Memilih Printer dengan CommonDialog pada VB 6

Posted: Januari 21, 2009 in VB 6

Cara menggunakan CommonDialog untuk memilih printer yang akan digunakan untuk mencetak :

Sub Cetak()
    On Error GoTo err_han
    ' hidupkan property CancelError untuk menangkap error saat cancel
    ' saat dipilih Cancel akan timbul error nomor 32755
    ' error tersebutlah yang akan kita tangkap untuk pembatalan
    Me.CommonDialog1.CancelError = True
    ' munculkan printer dialog
    Me.CommonDialog1.ShowPrinter
    ' contoh data yang akan dicetak
    Printer.Print "Test"
    Printer.EndDoc
    Exit Sub
err_han:
    If Err.Number = 32755 Then
        MsgBox "Cetak dibatalkan", vbInformation
    End If
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s