PRINT / MENCETAK RATA KANAN PADA VISUAL BASIC 6 ( VB )

Mencetak rata kanan pada VB 6 :
Buat satu project baru. Buat satu tombol menggunakan Command Button, kemudian copykan Coding berikut ke dalam Program anda.

Kalau mau filenya ini saya uploadkan
http://www.4shared.com/file/210177601/a198f320/Contoh_Printer_Cetak_Rata_Kana.html


'//=================================================================//
'
' Project Name: Print.vbp --> Print.exe
'
' Copyright © 2008-2009 Araysoft Labs
' All Rights Reserved
'
' Supports: Forum.VB-Bego & Members
'
'//=================================================================//

Option Explicit

Private Const gy_def_LINECHAR As String = "-"
Private Const gy_def_SPACECHAR As String = " "
Private Const gy_def_NUMLENGTH As Integer = 3
Dim Data1, Data2, Data3, Data4

Private Sub Command1_Click()
Dim i As Integer
Dim s As String

Printer.Font = "Courier New"
Printer.FontSize = 10
'total baris adalah 15000
'jarak per baris adalah 400
'jadi, jlh baris adalah 35
Printer.CurrentY = 1000
'Printer.CurrentY = 400

Printer.CurrentX = 500
'Judul
s = "No"
s = IsItemWidth(s, gy_def_NUMLENGTH, False)
s = s & IsItemWidth("Nama", 30, False)
s = s & IsItemWidth("Tgl", 10)
s = s & IsItemWidth("Harga", 20)
s = s & IsItemWidth("Total", 20)
Printer.Print s

For i = 1 To 3
'Masukan data anda disini
Printer.CurrentX = 500
If i = 1 Then
Data1 = "AAAAAAAAAA"
Data2 = "17-16-2010"
Data3 = "50000"
Data4 = "645212"
ElseIf i = 2 Then
Data1 = "BBBBBBBBBBB"
Data2 = "10-17-2009"
Data3 = "5000000"
Data4 = "64520212"
ElseIf i = 3 Then
Data1 = "CCCCCCCCCCC"
Data2 = "12-20-2009"
Data3 = "500000"
Data4 = "6452012"
End If

Static c As Integer
c = c + 1

'Nomor Urut
s = CStr(c)
s = IsItemWidth(s, gy_def_NUMLENGTH, False)

'Rincian
s = s & IsItemWidth(Data1, 30, False)
s = s & IsItemWidth(Data2, 10)
s = s & IsItemWidth(Format(Data3, "#,##0"), 20)
s = s & IsItemWidth(Format(Data4, "#,##0"), 20)
Printer.Print s

Next i
Printer.EndDoc

End Sub

'//-------------------------------------------------------------//
' IsItemWidth Function --> Copyright © 2009 Gyustitia
'//-------------------------------------------------------------//
Private Function IsItemWidth(ByVal v As String, _
ByVal Count As Integer, _
Optional ByVal r As Boolean = True) As String

If Count <>= Count Then
'Potong Teks Jika Lebih Panjang Dari Nilai MaxLength
IsItemWidth = VBA.Left$(v, Count)
Else
If r Then
'Teks Sebelah Kiri
IsItemWidth = VBA.String$(Count - Len(v), gy_def_SPACECHAR) & v
Else
'Teks Sebelah Kanan
IsItemWidth = v & VBA.String$(Count - Len(v), gy_def_SPACECHAR)
End If
End If
End Function

'//-------------------------------------------------------------//
' Open Source Visual Basic 6.0, Written by Gyus
'//-------------------------------------------------------------//