Re: [Programmer-VB] cara cetak di printer memakai vb

Tue, 03 Jan 2006 23:17:32 -0800

Menurut saya lebih baik anda menggunkan crystal report. Lebih baik dalam hal mencetak ke printer

Adhy Nunu <[EMAIL PROTECTED]> wrote:
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





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.

Yahoo! DSL Something to write home about. Just $16.99/mo. or less

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


YAHOO! GROUPS LINKS



Kirim email ke