So sieht meine procedure aus
Es wird allerdings immer nur das "P" gedruckt
Was ist falsch???
*kurzvormverzweifelnbin*
Übergabe: PrintCut('control','P',10);
Delphi-Quellcode:
procedure PrintCut(fontname,fontstring: String; fheight:Integer);
var Font: String; FontHeight:Integer;
begin
Font := fontname;
FontHeight := fheight;
Printer.PrinterIndex := Printer.Printers.IndexOf(report.form1.analysedrucker);
Printer.BeginDoc;
printer.Canvas.Font.Name:=font;
printer.Canvas.Font.Size:=FontHeight;
printer.Canvas.TextOut(0,0,fontstring);
Printer.EndDoc;
end;