Delphi-Quellcode:
begin
if PrintDialog1.Execute then
LLeft := 250;
LTop := 240;
LLineheight := 46;
Printer.BeginDoc;
SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);
with Printer do
begin
Canvas.Font.Name := 'Times New Roman';
Canvas.Font.Height := 45;
Canvas.TextOut(LLeft, -LTop, 'hier kommt halt der text der gedruckt wird.'); inc(LTop, LLineheight);
Canvas.TextOut(LLeft, -LTop, 'hier ist die zweite zeile die gedruckt wird.'); inc(LTop, LLineheight);
Canvas.TextOut(LLeft, -LTop, 'und noch eine zeile das geht so weiter.'); inc(LTop, LLineheight);
end;
Printer.EndDoc;
und diesen test will ich halt nicht auf dem standartdrucker drucken lassen sondern auf einem 2ten drucker der am pc angeschlossen ist aber nicht der
standart drucker ist. ich will dies auch nicht jedes mal manuell auswählen müssen sondern von vornherhein festlegen das meine anwendung immer diesen drucker nimmt