Bisa juga pakai tab
open "LPT1" for output as #1
print #1,tab(5);" STRUK OUTPUT "
print #1,tab(45);"Ini tab ke 45"
close #1
akan jadi seperti
STRUK OUTPUT
Ini tab ke 45
open "LPT1" for output as #1
print #1,tab(5);" STRUK OUTPUT ";
print #1,tab(45);"Ini tab ke 45"
close #1
Hasilnya
STRUK OUTPUT Ini tab ke 45
Thanks
Ronald Irawan
http://www.Foodinvestment.com/?id=ronald_delgeano
Jakarta
"Taufik" <[EMAIL PROTECTED]>
Sent by: [email protected]
20/03/2007 17:21
Please respond to
[email protected]
To
[email protected]
cc
Subject
[indoprog-vb] Re: Coordinat x,y Cetak to LPT
Tips untuk mencetak langsung ke printer, terutama untuk mencetak struk
1. perintah Print #1, "" akan dieksekusi oleh printer ke dalam 1
baris.
2. kita menentukan koordinat y sebagai baris, x-nya saja sebagai
karakter ke sekian.
jadi yang mungkin dilakukan adalah, menganggap x sebagai banyaknya
spasi, chr(32)
dan, sederhananya, y adalah baris
Misalnya kita mau menyimpan kata "XYZ" di koordinat (bayangan) 10,5
dimana x (kolom) = 10 dan y (baris) = 5
Dim xPos as integer, yPos as integer, i as integer, vText as String
xPos = 10
yPos = 5
vText = "XYZ"
Open "LPT1" for output as #1
for i = 1 to yPos
Print #1, ""
Next i
Print #1, String(chr(32)) & vText
Close #1
misalnya kita mau membuat struk seperti ini
*****TOKO-MARKET*****
STRUK BELANJA
---------------------
scriptnya:
open "LPT1" for output as #1
print #1, string(*,5) & "TOKO-MARKET" & string(*,5)
print #1, string(chr(32),4) & "STRUK BELANJA"
print #1, string("-", 21)
Close #1
Smoga membantu
F
--- In [email protected], agustama rumapea <[EMAIL PROTECTED]>
wrote:
>
> Saya pernah baca utk cetak report langsung ke printer seperti code
berikut:
>
> open "LPT1" for output as #1
> print #1,"" 'membuat baris baru
> print #1," STRUK OUTPUT "
> print #1,"bla bla bla bla bla"
> print #1,""
> close #1
>
> Nah, yang jadi pertanyaan saya, bagaimana menentukan lokasi
coordinat x,y
> sehingga kita bisa cetak di posisi yang kita inginkan.
>
> Mohon bantuannya,
> Salam,
> Agus Rpea
>
>
> ---------------------------------
> Food fight? Enjoy some healthy debate
> in the Yahoo! Answers Food & Drink Q&A.
>
> [Non-text portions of this message have been removed]
>
[Non-text portions of this message have been removed]
