Ausdruck viel zu klein

[gmc616]

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