Печать ячеек

Материал из DRKB


У кого-нибудь есть пример кода печати в заданной ячейке? Типа PrintAt(row, col, "Text")?

Вот некоторый код, который я нашел после блужданий в группах новостей. Правда сам я его не проверял, но источник утверждает, что он работает. Так что будьте внимательны!


Procedure TForm1.PrintTableClick(Sender: TObject);
var
  xCord: Integer;
  yCord: Integer;
  RecordBuffer: string;
begin
  xCord := 10;
  yCord := 10;
  Table1.First;
  Printer.BeginDoc;
  Printer.Canvas.Font.Name := 'Courier New';
  while not Table1.EOF do
  begin
    RecordBuffer := Concat((Table1.Fields[0].AsString), ' ', (Table1.Fields[1].AsString));
    RecordBuffer := RecordBuffer + Concat(' ', (Table1.Fields[2].AsString);
    { пока все поля не будут в RecordBuffer }
    Printer.Canvas.TextOut(xCord, yCord, RecordBuffer);
    yCord := yCord + 50;
    Table1.Next;
  end;
  Printer.EndDoc;
end;


Буду рад, если помог.

Lloyd Linklater <Sysop>
Delphi Technical Support


Source: Взято из Советов по Delphi от Валентина Озерова
ID: 03243