Ikut menambahkan sedikit, dengan modifikasi script yg pernah saya kirim.
Dengan cara manual dapat dicoba dengan cara seperti dibawah.
Write(F,#12) untuk eject tidak diaktifkan.
Semoga bisa membantu
Const
e = Chr(27);
eBUKA = e+'F'+e+'H'+e+'-'+chr(0)+ e+'5'+e+'T'+e+'T';
DRAFT_20 = e+'p'+chr(0)+e+'x'+chr(0)+e+'M'+e+'W'+
chr(0)+chr(15)+e+'$'+chr(32)+chr(1);
var
F : TextFile;
begin
AssignFile(F,'LPT1');
Rewrite(F);
Writeln(F, Draft_20,eBUKA );
Writeln(F,'DAFTAR ALAMAT KARYAWAN');
Writeln(F,'');
Writeln(F,'=========================================');
Writeln(F,'NIK NAMA ALAMAT ');
Writeln(F,'-----------------------------------------');
Writeln(F,'97010001 JOKO SURABAYA ');
// .... dst atur sendiri panjang data yg akan dicetak .....
// .... Write(F,#12) -- chr #12 untuk eject tidak diaktifkan
CloseFile(F);
end;
-----Original Message-----
From: jokorb [mailto:[EMAIL PROTECTED]
Subject: [Delphindo] Re: Bagaimana Cara Bikin Struk seperti di Supermarket
dengan Delphi
> Bukannya itu tergantung kertasnya pak.
> Setahu saya, kertas gulung untuk print struct itu ada
> batas perhalamannya.
> Seperti kertas toilet itu loh.:)
> Semoga membantu..
> --- Ahmad Hasby <[EMAIL PROTECTED]> wrote:
Tidak juga. Seperti Alfa Retailindo, kertasnya akan dipotong oleh
cutter pada printer jika selesai mencetak struk. Bukan tergantung
kertasnya.
> > Rekan-rekan, ada yang tahu nggak cara bikin
> > printeran
> > untuk struk dengan delphi, maksudnya printer
> > berhenti
> > langsung pada akhir data, bukan satu lembar dulu.
> >
[Non-text portions of this message have been removed]
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
| Yahoo! Groups Sponsor | |
|
|
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
