Mencetak Data ke Printer dengan Perintah Escape

Program berikut adalah modifikasi dari artikel saya di Mencetak Text Langsung ke Printer. Perbedaannya, pada artikel disini, saya menggunakan perintah Escape yang didefinisikan di Windows.pas.

Kode program dibawah ini berjalan dengan mencetak tulisan di memo dengan perulangan  for, mulai baris pertama sampai terakhir.

Agar baris dapat berpindah ke baris berikutnya. Saya mendefinsikan kostanta GantiBaris yang berisi string #13#10.

Agar program berjalan, pertama-tama kita membuat data tipe record yang digunakan untuk

TPassThroughData = Record
    nLen  : Word;
    sData : Array[0..255] of AnsiChar;
end;

Kemudian saya membuat sebuah fungsi untuk mencetak tulisan. 

Procedure DirectPrint(s : String);
var
    BlockData : TPassThroughData;
    TestInt : Integer;
Begin
    TestInt := PassThrough;

    if Escape(Printer.Handle, QUERYESCSUPPORT, SizeOf(TESTINT), @testint, nil) > 0 then
    begin
        StrPCopy(BlockData.sData , s);
        BlockData.nLen := StrLen(BlockData.sData);
        Escape(printer.handle, PASSTHROUGH,0,@BlockData,nil);
    end;
End;

Tulisan akan segera dicetak saat pengguna menekan tombol Cetak Data yang berisi kode program berikut:

procedure TForm1.Button1Click(Sender: TObject);
const
    GantiBaris = #13#10;
var
    i : integer;
begin
    Printer.BeginDoc;

    for i:= 0 to Memo1.Lines.Count do
    begin
        DirectPrint(Memo1.Lines[i] + GantiBaris);
    end;

    Printer.EndDoc;
end;
  

Kode Program Selengkapnya:

unit UnitCreateFilePrinter; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls, Printers; type TPassThroughData = Record nLen : Word; sData : Array[0..255] of AnsiChar; end; TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.dfm} Procedure DirectPrint(s : String); var BlockData : TPassThroughData; TestInt : Integer; Begin TestInt := PassThrough; if Escape(Printer.Handle, QUERYESCSUPPORT, SizeOf(TESTINT), @testint, nil) > 0 then begin StrPCopy(BlockData.sData , s); BlockData.nLen := StrLen(BlockData.sData); Escape(printer.handle, PASSTHROUGH,0,@BlockData,nil); end; End; procedure TForm1.Button1Click(Sender: TObject); const GantiBaris = #13#10; var i : integer; begin Printer.BeginDoc; for i:= 0 to Memo1.Lines.Count do begin DirectPrint(Memo1.Lines[i] + GantiBaris); end; Printer.EndDoc; end; end.

Mencetak Data ke Printer dengan Perintah Escape 2015-10-05T12:04:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer