[Programmer-VB] cara cetak di printer memakai vb

[Adhy Nunu]

salam vb, rekan2 saya sedang belajar VB 6.0 dengan database MS Access. Ada satu permasalahan dimana saya gagal mencetak tampilan di layar. Mohon pencerahannya, bagaimana caranya agar bisa nge-print? Thx B4.   Source Code :   Private Sub cmdCetak_Click()    Call Table    rs.Close    Unload Me End Sub Private Sub Table()    If rs2.RecordCount <> 0 Then       rs2.MoveFirst       banyakkolom = 6       jumlahrecord = rs2.RecordCount       ulangan = Round((jumlahrecord - (jumlahrecord Mod 45)) / 45) + 1              Call CetakJudul      End Sub   Private Sub CetakJudul()    Form1.Show    Form1.ScaleMode = vbCentimeters    Form1.FontName = "Arial"    Form1.FontSize = 8             jarakhuruf = 0.16    jarakbaris = 2       Form1.CurrentX = 1    Form1.CurrentY = 0.5       Form1.Print "ULANG TAHUN"    Form1.Print    'Form1.Print ""    Form1.CurrentX = 0    Form1.Print    Form1.CurrentX = 1    Form1.Print "Bulan : "; cmbBulanDsp.Text    Form1.Print    Form1.CurrentY = Form1.CurrentY + jarakbaris       posxawal = 1    lebarx = 20    posxakhir = posxawal + lebarx    posy = 1    posyawal = Form1.CurrentY       Form1.Line (posxawal, posy)-(posxakhir, posy) '(1,1)-(21,1)       posy = posy + jarakbaris ' 1+2 = 3       Form1.Line (1, 3)-(50, 3) '(posxawal, posy)-(posxakhir, posy) '(1,3)-(21,3)    posy = posy + 0.05        sjudul1 = "N A M A  L E N G K A P"    lebarkolom1 = 25    kolomke1 = Round((lebarkolom1 - Len(sjudul1)) / 2)    Form1.CurrentX = 1 'kolomke1 * jarakhuruf     Form1.Print sjudul1;       sjudul2 = "TITLE"    lebarkolom2 = 10    kolomke2 = Round(((lebarkolom2 - Len(sjudul2)) / 2 + lebarkolom1))    Form1.CurrentX = 6 'kolomke2 * jarakhuruf    Form1.Print sjudul2;       sjudul3 = "TANGGAL LAHIR"    lebarkolom3 = 10    kolomke3 = Round(((lebarkolom3 - Len(sjudul3)) / 2 + lebarkolom1 + lebarkolom2))    Form1.CurrentX = 8 'kolomke3 * jarakhuruf    Form1.Print sjudul3;       sjudul4 = "A L A M A T  R U M A H "    lebarkolom4 = 20    kolomke4 = Round(((lebarkolom4 - Len(sjudul4)) / 2 + lebarkolom1 + lebarkolom2 + lebarkolom3))    Form1.CurrentX = 11 'kolomke4 * jarakhuruf    Form1.Print sjudul4;       sjudul5 = " K O T A "    lebarkolom5 = 15    kolomke5 = Round(((lebarkolom5 - Len(sjudul5)) / 2 + lebarkolom1 + lebarkolom2 + lebarkolom3 + lebarkolom4))    Form1.CurrentX = 16 'kolomke5 * jarakhuruf    Form1.Print sjudul5;       sjudul6 = "K O D E  P O S"    lebarkolom6 = 5    kolomke6 = Round(((lebarkolom5 - Len(sjudul6)) / 2 + lebarkolom1 + lebarkolom2 + lebarkolom3 + lebarkolom4 + lebarkolom5))    Form1.CurrentX = 17.5 'kolomke6 * jarakhuruf    Form1.Print sjudul6;    End Sub Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. Disclaimer: Although this message has been checked for all known viruses using Trend Micro InterScan Messaging Security Suite, Bukopin accept no liability for any loss or damage arising from the use of this E-Mail or attachments.