[gelöst] Lazarus: StringGrid drucken

[Kralle]

Moin,

Zitat von DeddyH:

Woher kommt denn sTitle? Im ersten Beispielcode heißt das Title und ist ein Parameter, der an die Druckroutine übergeben wird.

Delphi-Quellcode:

procedure PrintGrid(sGrid: TStringGrid; sTitle: string);
var
  X1, X2: Integer;
  Y1, Y2: Integer;
  TmpI: Integer;
  F: Integer;
  TR: TRect;
begin
  Printer.Title := sTitle;

Delphi-Quellcode:

procedure TForm1.MI_DruckenClick(Sender: TObject);
begin
  PrintGrid(StringGrid1, 'Print Stringgrid');
end;

sTitle ist einer der beiden Übergabeparameter.

Upps, habe den Code aus dem falschen Browserfenster übernommen. Moment ich binde den anderen nochmal ein ...

Gruß HEiko