@madi: Buwat yg Fanatik ama Quickreport yg tdk fanatik dilarang men-donlot xixixixi...(just kidding). ===================== Silahkan donlot contoh Struck & Nota http://www.esnips.com/doc/73128857-2522-41ba-9575-7f440cd6f63c/Printing Penting : Baca dulu ritmi.txt

tp aku bingung install zreportnya... udah jalankan script BUILD7.BAT dan tak ganti utk set BDP=C:\program files\Borland\Delphi7 tp kok tetep gak ada zreport nya ya?... thanks bantuannya...

tp aku bingung install zreportnya... udah jalankan script BUILD7.BAT dan tak ganti utk set BDP=C:\program files\Borland\Delphi7 tp kok tetep gak ada zreport nya ya?... thanks bantuannya...

kmu ya aneh, lha yg diquote quickreport, koq bingung install zreport..kan malah repotx...hehehe

wkwkwkw....

  TDxPrinter = class(tcomponent)
  private
   fPrinter:string;
   fTitle  :string;
   fHandle :THandle;
   EOnOpen:TNotifyEvent;
   Function Open:boolean;
   Procedure Close;
   Function Write(s:string):boolean;
  protected
   procedure SetActive(Value:boolean);
   function GetActive:boolean;
  public
  end;
function DefaultPrinter:string;
 var
  pDefaultPrinter: array of Char;
  i:integer;
 begin
  GetProfileString('windows', 'device', '', pDefaultPrinter,SizeOf(pDefaultPrinter) - 1);
  Result:=pDefaultPrinter;
  i:=pos(',',Result);
  if i>0 then SetLength(Result,i-1);
 end;
Procedure TDxPrinter.SetActive(Value:boolean);
begin
 if Value then Open else Close;
end;
Function TDxPrinter.GetActive:boolean;
begin
 Result:=(fHandle<>0);
end;
Function TDxPrinter.Open:boolean;
 var
  s:string;
  DocInfo:record
   DocName :PChar;
   OutFile :PChar;
   DataType:PChar;
  end;
begin
  if fPrinter='' then s:=DefaultPrinter else s:=fPrinter;
  if not WinSpool.OpenPrinter(PChar(s),fHandle,nil) then
   fHandle:=0;
  Result:=(fHandle<>0);
  if Result then
  begin
  ftitle:='Cetak Nota';
  with DocInfo do
  begin
   DocName :=PChar(fTitle);
   OutFile :=nil;
   DataType:=nil;
  end;
  Result:=(StartDocPrinter(fHandle,1,@DocInfo)<>0);
  Escape(fhandle, ENDDOC(fhandle),0, nil, nil);
  if Result then
  begin
   if Assigned(EOnOpen) then EOnOpen(Self);
  end else
  begin
   ClosePrinter(fHandle);
   fHandle:=0;
  end;
  end;
end;
Procedure TDxPrinter.Close;
 begin
  if fHandle<>0 then
  begin
   ClosePrinter(fHandle);
   fHandle:=0;
  end;
 end;
Function TDxPrinter.Write(s:string):boolean;
var
 Size:DWORD;
begin
  WinSpool.WritePrinter(fHandle,pchar(s+#13+#10),Length(s+#13+#10),Size);
  Result:= true;
end;

kalo saya pake ini ^^.. wkwkwkwk... Dasar dari Component TRAW itu... saya udah baca koq.. TDX printer... di unit yang sering di pake..

Bener kalo kata om Simba ^^.... harus cari daftar esc nya yang baru... biasanya di bukunya lengkap koq.... kalo seperti scrip yang saya kasih. diatas... tambahkan aja... format2nya. di bagian mau cetak.... kalo mau simple lagi... lagi sediakan aja di daftar2 printer dan buat procedure2 baru sesuai dengan kebutuhan... makanya saya tidak download TRAW.... jadi kita bisa atur sendiri... mau buat WriteBold kita isa atur sendiri....mau tengahkan rata kanan rata kiri semua dari fungsi2 cetak 1 baris kita... dan kalo pake jenis font dari Printer itu sendiri 1 baris harus disesuaikan sesuai kita mau... saya pernah coba pake Printer Star S520 itu hampir sama... LX-300 pun sama... nah itu default printer cetaknya... jadi setingan Default yang di windows lu setting Printer LAN.. jadi tetap isa... banyak client 1 printer.... ^^... contoh scrip bold di LX-300...

 
       s:='     '+CHR(27)+'E'+qm.fieldbyname('namacust').asstring+CHR(27)+'F' 
       dxp.write(S)

Saya sudah coba print faktur dengan RAWPrinter, tetapi ketika dijalankan muncul error . Saya menggunakan Delphi 7, printer dotmatrix EPSON LX-300+ II. Ada yang bisa bantu apa penyebab error tersebut? Thanks before.

Maaf, sudah sy temukan sendiri jawabannya. Ternyata saya salah cara menginstal komponennya. Sekarang sudah benar. :mrgreen: