Super Tipp, doch wie mach ich das mit dem Drucker?
TextOutW verlangt als ersten Parameter ein
DC? Kannst Du mir die Zeile coden?
DANKE!
PS: Ich habs so probieert, doch bekomm ich eine leere Seite auf CutePDF Printer.
if PrintDialog1.Execute then
begin
DC:=GetDC(PrintDialog1.Handle);
Printer.BeginDoc;
TextOutW(
DC,100,100, PWideChar(Tntlabel1.Caption),3);
Printer.EndDoc;
end;
Habs auch mit dem und normalem String im Label probiert.OHne Erfolg.
if PrintDialog1.Execute then
begin
Printer.Canvas.Font.Name := 'Tahoma';
DC:=GetDC(PrintDialog1.Handle);
Printer.BeginDoc;
TextOutA(
DC,100,100, PChar(Label7.Caption),3);
Printer.EndDoc;
end;
Habs schon gelöst: So ist es richtig:
TextOutW(Printer.Canvas.Handle,100,100, PWideChar(Tntlabel1.Caption),3);