uses printers
.......
with printer.canvas do
begin
begindoc;
 textout(0,0,table.fields[0].asstring;
enddoc;
end;

emang bisa ya pake koponen report. apa nanti kertasnya ga ngerol satu halaman sesuai dgn yang kita setting di komponen report tsb. soalnya banyak barang yang di beli kan bisa 1,2 atau bakan lebih. jadi kertasnya bisa panjang bisa pendek.maksud saya yang pake direct printig gitu. kalo bisa pake komponene report bisa ga dicontohin. pake komponen report apa aja boleh. kalo saya sih biasanya pake freereport utk bikin laporan

uses Printers;
......
with Printer.Canvas do
begin
  BeginDoc;
  TexOut(0,0,Table.Fields[0].AsString); // --> Jangan lupa tutup kurung nya :D
  EndDoc;
end;

uses Printers;
......
Procedure Cetak;
var tfPrinter: TextFile;
begin
  // Arahkan teks file ke printer
  AssignPrn(tfPrinter);
  // buka printer
  Rewrite(tfPrinter);
  // mulai nyetak
  Writeln(tfPrinter,'Judul Struk');
  Writeln(tfPrinter,'Mo ngapain ?');
  // udah beres, tutup printer
  CloseFile(tfPrinter);
end;

procedure SiapkanFile;
var f, nota: TextFile;
begin
  AssignFile(nota, 'c:\nota.txt');
  Rewrite(nota);
  // siapkan
  Writeln(nota,'Nota Penjualan');
  Writeln(nota,'Barang 1');
  Writeln(nota,'Barang 2');
  Writeln(nota,'Barang 3');
  // selesai
  CloseFile(nota);
  
  // buat batch file
  AssignFile(f, 'c:\cetaknota.bat');
  Rewrite(f);
  // set printernya ada di kompi mana dan nama printernya
  Writeln(f,'COPY c:\nota.txt /B \\192.168.0.1\LX');
  CloseFile(f);
end;

procedure Cetak;
begin
  if FileExists('c:\cetaknota.bat') then begin
    try
      WinExec('c:\cetaknota.bat', 1);
    except
      begin
        Application.MessageBox('Cetak Nota Gagal !', 'Informasi', MB_OK or
          MB_ICONINFORMATION);
        Abort;
      end;
    end;
  end else
    Application.MessageBox('Cetak Nota Gagal, Setting Ulang Printer Anda',
      'Informasi', MB_OK or MB_ICONINFORMATION);
end;