--- In [email protected], zulfikri zulfikri <[EMAIL PROTECTED]> wrote:
>
> Hallo Para Programmer,Gimana ya cara setting kertas untuk ngeprint
Struk kaya di AlfaMart.Aku pernah coba dengan bikin ukuran kertas sendiri
> Misal satu halaman untuk 10 item barang ,tapi kendalanya kalo item
belanjanya melebihi 10 item barang struknya jadi dua lembar.Tolong ya.
>
>
>
>
> ---------------------------------
> Never miss a thing. Make Yahoo your homepage.
>
> [Non-text portions of this message have been removed]
>
Buat mas zulfikri
ada beberapa cara untuk print struk
bisa pake API, ataupun diakalin pake dos..
kalo pake dos simpan aja chr yang akan dicetak ke file lalu panggil
pake perintah prn yg dicall lewat vb.
kalo API caba pake ini :
Public Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type
Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal
hPrinter As Long) As Long
Public Declare Function EndDocPrinter Lib "winspool.drv" (ByVal
hPrinter As Long) As Long
Public Declare Function EndPagePrinter Lib "winspool.drv" (ByVal
hPrinter As Long) As Long
Public Declare Function OpenPrinter Lib "winspool.drv" Alias
"OpenPrinterA" (ByVal pPrinterName As String, ByVal phPrinter As Long,
ByVal pDefault As Long) As Long
Public Declare Function StartDocPrinter Lib "winspool.drv" Alias
"StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, ByVal
pDocInfo As DOCINFO) As Long
Public Declare Function StartPagePrinter Lib "winspool.drv" (ByVal
hPrinter As Long) As Long
Public Declare Function WritePrinter Lib "winspool.drv" (ByVal
hPrinter As Long, ByVal pBuf As Any, ByVal cdBuf As Long, ByVal
pcWritten As Long) As Long
