[indoprog-vb] Code Cetak Barcode ..plz

Sat, 22 Dec 2007 23:25:19 -0800 

 
Dear vb mania
 
Mo nanya neeh saya ada project cetak barcode dengan kertas struk gimana
carannya setelah cetak  Kertas tidak gulung 1 hal alias berhenti aku dah
coba kasih code di bawah kertas masih gulung aja mohon petunjuk…   kalo
bisa contoh Code 
 
Thx
 
Private Sub cmdCetakBarcode_Click()
     Dim OldPrinterPaperSize As Integer
     Dim OldScaleHeight As Single
vBarcode.CB_Création LTrim(RTrim(LblNomer.Caption)), True, False, False
      FrmCetakBarcode.Picture1(1).Picture =
FrmCetakBarcode.Picture1(0).Image
       FrmCetakBarcode.Picture1(2).Picture =
FrmCetakBarcode.Picture1(0).Image
       OldPrinterPaperSize = Printer.PaperSize
       OldScaleHeight = Printer.ScaleHeight
       Printer.Width = 12240
       Printer.Height = 1000 
       Printer.ScaleHeight = 13.12335
       Printer.PaintPicture FrmCetakBarcode.Picture1(1), 1, 0
       Printer.Print nMobil.vKode
       Printer.EndDoc
       OldPrinterPaperSize = Printer.PaperSize
       OldScaleHeight = Printer.ScaleHeight
End Sub
 


[Non-text portions of this message have been removed]

Kirim email ke