Schönens Wochenende
DP'ler,
ich nutze ein TXTextControl (
www.textcontrol.com) um Texte schreiben zu können und diese natürlich auszudrucken.
Doch hin und wieder kommt es von, dass der Ausdruck auf eine A4-Seite stark verkleinert aus dem Drucker kommt.
Nur 1/3 breit und 1/3 hoch.
Wenn ich jedoch meine Datei, mit dem dazu gelieferten Demo drucke ist sieht der Ausdruck korrekt aus.
Zum Drucken benutze ich diese Funktion. Ich hoffe sie erklärt sich selbst
Delphi-Quellcode:
function fktTX_Print (pTX : TTXTextControl;pnPrinterIndex: integer;psTitle : string) :boolean;
var iPages , iNr : integer;
begin
result := false;
iPages := pTX.CurrentPages;
try
Printer.PrinterIndex := pnPrinterIndex;
Printer.Title := psTitle;
Printer.BeginDoc;
for iNr := 1 to iPages do begin
pTX.PrintDevice := Printer.Canvas.Handle;
pTX.PrintPage(iNr);
if iNr <> iPages then
printer.Newpage;
end;
Printer.EndDoc;
result := true;
except
result := false;
end;
end;
gerufen wird sie so
Delphi-Quellcode:
if PrintDialog1.Execute then begin
fktTX_Print(TxTextcontrol1,Printer.PrinterIndex,dfSubject.text);
end;
Hab ich was vergessen? Die Einstellungen für den Drucker macht doch der PrintDialog, oder?
Ich hoffe ihr könnt mir helfen. Ich stehe nämlich irgendwie auf'm Schlauch.
Danke
gmc