Showing posts with label Printer. Show all posts
Showing posts with label Printer. Show all posts

Sunday, June 17, 2012

VB6 Code - Mencari seluruh Printer Port

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) As Boolean

Dim P As Printer, Found As Boolean
For Each P In Printers
If Printer.Port = Port & ":" Then
Found = True
Exit For
End If
Next

FindPrinterPort = Found

End Function
Demikian VB6 kode untuk mencari port tertentu dari seluruh printer port yang ada.
READ MORE - VB6 Code - Mencari seluruh Printer Port

VB6 Code - Menampilkan Dialog Page Setup

Option Explicit

Private Sub Command1_Click()
With CommonDialog1
.Flags = CommonDialog1.Flags Or PrinterConstants.cdlPDPrintSetup
.CancelError = True
On Error Resume Next
Call .ShowPrinter
If Err.Number <> ErrorConstants.cdlCancel Then
Call MsgBox("here, please implement the process after the end of the printer settings")
End If
End With
End Sub
READ MORE - VB6 Code - Menampilkan Dialog Page Setup

Contoh Print Preeview Pada Visual Basic 6.0

Option Explicit

Private Sub Form_Load()
CommonDialog1.CancelError = True
Command1.Caption = "Load Picture"
Command2.Caption = "Print Preview"
Command3.Caption = "Print"
End Sub

Private Sub Command1_Click()
Dim sFileFilter As String

On Error GoTo ErrHandler

sFileFilter = "Bitmap Files (*.bmp)|*.bmp|"
sFileFilter = sFileFilter & "GIF Files (*.gif)|*.gif|"
sFileFilter = sFileFilter & "Icon Files (*.ico)|*.ico|"
sFileFilter = sFileFilter & "JPEG Files (*.jpg)|*.jpg|"
sFileFilter = sFileFilter & "Windows MetaFiles (*.wmf)|.wmf"
With CommonDialog1
.Filter = sFileFilter
.ShowOpen
If .FileName <> " " Then
Picture2.Picture = LoadPicture(.FileName)
End If
End With

ErrHandler:
Exit Sub
End Sub

Private Sub Command2_Click()
Dim dRatio As Double
dRatio = ScalePicPreviewToPrinterInches(Picture1)
PrintRoutine Picture1, dRatio
End Sub

Private Sub Command3_Click()
Printer.ScaleMode = vbInches
PrintRoutine Printer
Printer.EndDoc
End Sub

Private Function ScalePicPreviewToPrinterInches _
(picPreview As PictureBox) As Double

Dim Ratio As Double ' Ratio between Printer and Picture
Dim LRGap As Double, TBGap As Double
Dim HeightRatio As Double, WidthRatio As Double
Dim PgWidth As Double, PgHeight As Double
Dim smtemp As Long

' Get the physical page size in Inches:
PgWidth = Printer.Width / 1440
PgHeight = Printer.Height / 1440

' Find the size of the non-printable area on the printer to
' use to offset coordinates. These formulas assume the
' printable area is centered on the page:
smtemp = Printer.ScaleMode
Printer.ScaleMode = vbInches
LRGap = (PgWidth - Printer.ScaleWidth) / 2
TBGap = (PgHeight - Printer.ScaleHeight) / 2
Printer.ScaleMode = smtemp

' Scale PictureBox to Printer's printable area in Inches:
picPreview.ScaleMode = vbInches

' Compare the height and with ratios to determine the
' Ratio to use and how to size the picture box:
HeightRatio = picPreview.ScaleHeight / PgHeight
WidthRatio = picPreview.ScaleWidth / PgWidth

If HeightRatio < WidthRatio Then
Ratio = HeightRatio
smtemp = picPreview.Container.ScaleMode
picPreview.Container.ScaleMode = vbInches
picPreview.Width = PgWidth * Ratio
picPreview.Container.ScaleMode = smtemp
Else
Ratio = WidthRatio
smtemp = picPreview.Container.ScaleMode
picPreview.Container.ScaleMode = vbInches
picPreview.Height = PgHeight * Ratio
picPreview.Container.ScaleMode = smtemp
End If

' Set default properties of picture box to match printer
' There are many that you could add here:
picPreview.Scale (0, 0)-(PgWidth, PgHeight)
picPreview.Font.Name = Printer.Font.Name
picPreview.FontSize = Printer.FontSize * Ratio
picPreview.ForeColor = Printer.ForeColor
picPreview.Cls

ScalePicPreviewToPrinterInches = Ratio
End Function

Private Sub PrintRoutine(objPrint As Object, _
Optional Ratio As Double = 1)
' All dimensions in inches:

' Print some graphics to the control object
objPrint.Line (1, 1)-(1 + 6.5, 1 + 9), , B
objPrint.Line (1.1, 2)-(1.1, 2)
objPrint.PaintPicture Picture2, 1.1, 1.1, 0.8, 0.8
objPrint.Line (2.1, 1.2)-(2.1 + 5.2, 1.2 + 0.7), _
RGB(200, 200, 200), BF

' Print a title
With objPrint
.Font.Name = "Arial"
.CurrentX = 2.3
.CurrentY = 1.3
.FontSize = 35 * Ratio
objPrint.Print "Visual Basic Printing"
End With

' Print some circles
Dim x As Single
For x = 3 To 5.5 Step 0.2
objPrint.Circle (x, 3.5), 0.75
Next

' Print some text
With objPrint
.Font.Name = "Courier New"
.FontSize = 30 * Ratio
.CurrentX = 1.5
.CurrentY = 5
objPrint.Print "It is possible to do"

.FontSize = 24 * Ratio
.CurrentX = 1.5
.CurrentY = 6.5
objPrint.Print "It is possible to do print"

.FontSize = 18 * Ratio
.CurrentX = 1.5
.CurrentY = 8
objPrint.Print "It is possible to do print preview"
End With
End Sub
READ MORE - Contoh Print Preeview Pada Visual Basic 6.0

Cara Menggunakan CommonDialog Printer

Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
On Error GoTo ErrHandler
With CommonDialog1
.CancelError = True
.ShowPrinter
BeginPage = .FromPage
EndPage = .ToPage
NumCopies = .Copies
End With

For i = 1 To NumCopies
'simpan kode di sini
Next i
Exit Sub
ErrHandler:
Exit Sub
End Sub
READ MORE - Cara Menggunakan CommonDialog Printer

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, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc
End Sub
Demikian sederhana cara mem-print sebuah gambar yang terdapat pada PictureBox menggunakan VB6.
READ MORE - Cara Mem-Print Sebuah Gambar Yang Ada Dalam PictureBox

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 As Single) 
Printer.Line (0, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY + LineWidth), , BF
Printer.EndDoc
End Sub
Contoh penggunaan kode untuk mencetak garis ke printer:
Private Sub Command1_Click() 
PrintLine (60) '60 adalah lebar garis
End Sub
READ MORE - Kode VB untuk Mencetak Sebuah Garis Ke Printer

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 
If
VB.Printers.Count <= 0 Then
IsPrinterInstalled = False
Exit Sub
Else
IsPrinterInstalled = True
End If
End Function
Atau Anda pun dapat merubah juga kode di atas (agar lebih simple) seperti di bawah ini (hasilnya akan sama):
Public Function IsPrinterInstalled() As Boolean 
IsPrinterInstalled = (VB.Printers.Count > 0)
End Function
READ MORE - Memeriksa Apakah Terdapat Printer Yang Terinstall - Visual B

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 = False
.FontBold = False
.FontItalic = True
.FontSize = "30"
.Print "Ini contoh objek font dalam printer"
.EndDoc
End With
End Sub
READ MORE - Menentukan Objek Font Yang Dikirimkan Ke Printer

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, "Default Printer"
End Sub
READ MORE - Fungsi Untuk Mengetahui Default Printer

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
Next
End Function

Contoh penggunaan mengenai printer yang terinstall
Private Sub Form_Load() 
ListAllPrinters List1
End Sub

READ MORE - Memperoleh Informasi Mengenai Printer Yang Terinstall

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
Dim l As Long
l = FreeFile
Open
port For Output As #l
Print #F, text
Close #l
PrintToLPTPort = True
Exit Function

ErrHandler:
PrintToLPTPort = False
End Function
Contoh penggunaan cetak ke printer via LPT Port:
Private Sub Command1_Click() 
PrintToLPTPort "LPT1", "Test Print"
End Sub
READ MORE - Cetak Ke Printer Via LPT Port Menggunakan VB6

Sunday, April 4, 2010

VB6 Code - 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
Next
End Function
Contoh penggunaan mengenai printer yang terinstall
Private Sub Form_Load()
ListAllPrinters List1
End Sub
READ MORE - VB6 Code - Informasi Mengenai Printer Yang Terinstall

VB6 Code - Fungsi Untuk Mengetahui Default Printer

Di bawah ini merupakan fungsi untuk mengetahui default printer yang sedang digunakan menggunakan kode VB6:
Option Explicit

Function DefPrintName() As String
DefPrintName = Printer.DeviceName
End Function
Contoh penggunaan kode di atas
Private Sub Command1_Click()
MsgBox DefPrintName, vbInformation, "Default Printer"
End Sub
READ MORE - VB6 Code - Fungsi Untuk Mengetahui Default Printer