Hallo,
in folgender Proc.wird der Text oben liks ausgedruckt. Nun möchte ich die nächste bZeile in 0,18+10 drucken.( Font.size + x ). Die Zeile wird aber nur ca. 2mm tiefer als die erste Zeile gedruckt. Was mache ich falsch, und wie kann ich den font.Style wieder auf normal setzen?
procedure TForm3.Button3Click(Sender: TObject);
begin
Printer.Orientation := poLandscape;
Printer.BeginDoc;
Printer.Canvas.Font.Name := 'Arial';
Printer.Canvas.Font.Size := 18;
Printer.Canvas.Font.Style := [fsUnderline];
Printer.Canvas.TextOut(0,0,'Test');
Printer.Canvas.TextOut(0,28,'Test2');
Printer.EndDoc;
end;
in folgender Proc.wird der Text oben liks ausgedruckt. Nun möchte ich die nächste bZeile in 0,18+10 drucken.( Font.size + x ). Die Zeile wird aber nur ca. 2mm tiefer als die erste Zeile gedruckt. Was mache ich falsch, und wie kann ich den font.Style wieder auf normal setzen?
procedure TForm3.Button3Click(Sender: TObject);
begin
Printer.Orientation := poLandscape;
Printer.BeginDoc;
Printer.Canvas.Font.Name := 'Arial';
Printer.Canvas.Font.Size := 18;
Printer.Canvas.Font.Style := [fsUnderline];
Printer.Canvas.TextOut(0,0,'Test');
Printer.Canvas.TextOut(0,28,'Test2');
Printer.EndDoc;
end;
Comment