Lebih tepatnya mencari port printer tertentu dari seluruh printer port yang ada menggunakan kode VB6. Adapun kode VB6 untuk mencari port tertentu dari seluruh printer port yang ada adalah sebagai berikut:Public Function FindPrinterPort(Port As String)...
Showing posts with label Printer. Show all posts
Showing posts with label Printer. Show all posts
Sunday, June 17, 2012
VB6 Code - Menampilkan Dialog Page Setup
Option ExplicitPrivate Sub Command1_Click() With CommonDialog1 .Flags = CommonDialog1.Flags Or PrinterConstants.cdlPDPrintSetup .CancelError = True On Error Resume Next Call .ShowPrinter If Err.Number <> ErrorConstants.cdlCancel...
Contoh Print Preeview Pada Visual Basic 6.0
Option ExplicitPrivate Sub Form_Load() CommonDialog1.CancelError = True Command1.Caption = "Load Picture" Command2.Caption = "Print Preview" Command3.Caption = "Print"End SubPrivate Sub Command1_Click() Dim sFileFilter As String On...
Cara Menggunakan CommonDialog Printer
Private Sub Command1_Click() Dim BeginPage, EndPage, NumCopies, iOn Error GoTo ErrHandler With CommonDialog1 .CancelError = True .ShowPrinter BeginPage = .FromPage EndPage = .ToPage NumCopies = .Copies End...
Cara Mem-Print Sebuah Gambar Yang Ada Dalam PictureBox
Mengenai cara mem-print gambar yang terdapat pada objek PictureBox menggunakan VB6 - Adapun cara mem-print gambar yang terdapat pada PictureBox menggunakan VB6 adalah sebagai berikut: Private Sub Command1_Click() Printer.PaintPicture Picture1.Picture,...
Friday, June 8, 2012
Kode VB untuk Mencetak Sebuah Garis Ke Printer
Di bawah ini merupakan contoh sederhana untuk mencetak sebuah garis ke printer menggunakan Visual Basic 6, diharapkan Anda dapat mengembangkannya lebih lanjut, adapun kode untuk mencetak sebuah garis ke printer adalah sebagai berikut: Private Sub PrintLine(LineWidth...
Memeriksa Apakah Terdapat Printer Yang Terinstall - Visual B
Di bawah ini merupakan kode untuk memeriksa apakah komputer memiliki printer yang terinstall menggunakan Visual Basic 6, Adapun kode untuk memeriksa printer yang terinstall dalam komputer sebagai berikut:Public Function IsPrinterInstalled() As Boolean...
Menentukan Objek Font Yang Dikirimkan Ke Printer
Contoh sederhana untuk menentukan name, underline, bold, italic, size (properties objek font) yang dikirimkan ke sebuah printer. Adapun contohnya sebagai berikut: Private Sub Command1_Click() With Printer .FontName = "Arial" .FontUnderline...
Monday, May 28, 2012
Fungsi Untuk Mengetahui Default Printer
Di bawah ini merupakan fungsi untuk mengetahui default printer yang sedang digunakan.Option Explicit Function DefPrintName() As String DefPrintName = Printer.DeviceName End Function Private Sub Command1_Click() MsgBox DefPrintName, vbInformation,...
Memperoleh Informasi Mengenai Printer Yang Terinstall
Di bawah ini merupakan cara memperoleh/mengetahui informasi mengenai printer yang terinstall.Option Explicit Public Function ListAllPrinters(lst As Control) Dim oPrint As Object For Each oPrint In Printers List1.AddItem oPrint.DeviceName...
Thursday, December 23, 2010
Cetak Ke Printer Via LPT Port Menggunakan VB6
Di bawah ini merupakan contoh cara mencetak ke printer via LPT Port menggunakan Visual Basic 6 - Adapun kodenya adalah sebagai berikut: Public Function PrintToLPTPort(ByVal port As String, ByVal text As String) As Boolean On Error GoTo ErrHandler ...
Sunday, April 4, 2010
VB6 Code - Informasi Mengenai Printer Yang Terinstall
Di bawah ini merupakan cara memperoleh/mengetahui informasi mengenai printer yang terinstall.Option ExplicitPublic Function ListAllPrinters(lst As Control) Dim oPrint As Object For Each oPrint In Printers List1.AddItem oPrint.DeviceName NextEnd FunctionContoh...
VB6 Code - Fungsi Untuk Mengetahui Default Printer
Di bawah ini merupakan fungsi untuk mengetahui default printer yang sedang digunakan menggunakan kode VB6:Option ExplicitFunction DefPrintName() As String DefPrintName = Printer.DeviceNameEnd FunctionContoh penggunaan kode di atasPrivate Sub Command1_Click()...
Subscribe to:
Posts
(
Atom
)
