Formular zentriert ausdrucken

[haentschman]

... es muß auch Printers.PrintOptions (oder so ähnlich geben). Hab leider im Moment kein Delphi zur Hand. Die PrintDialog.Options sind nur für die Einstellungen des Dialogs zu gebrauchen.

Schau bitte noch mal nach...

[DeddyH]

Könnte man sich nicht mit GetFormImage (ich glaub, das hieß so) eine Bitmap des Formulars holen und dann über Printer.Canvas ausdrucken? Ggf. müsste das Bild noch herunterskaliert werden, damit es auf die Seite passt. Mittig bekäme man es dann, indem man für X --> (Printer.PageWidth - Bitmap.Width) div 2 und für Y --> (Printer.PageHeight - Bitmap.Height) div 2 errechnet.

[Metallicwar]

Hab mal wieder einen Hänger

Delphi-Quellcode:

var
x, y: Integer

Delphi-Quellcode:

         
begin
with Printer do
  begin
    BeginDoc;
    try
      bitmapFormular := Formular.GetFormImage;
      X := (Printer.PageWidth - bitmapFormular.Width) div 2; // was genau muss X sein???
      Y:= (Printer.PageHeight - bitmapFormular.Height) div 2; // was genau muss Y sein???
      //Bild herunterskalieren?
      //bitmap drucken?
    finally
      EndDoc;
    end;
  end;
end;

[DeddyH]

Aus dem Kopf:
Printer.Canvas.Draw(X,Y,bitmapFormular); Falls die Bitmap aber zu groß ist, muss sie erst proportional verkleinert werden. Du kannst ja einmal nach StretchGraphic suchen.

[Metallicwar]

klasse, Delphi kotzt mich manchmal echt an. Ganze IDE abgeschmiert und nicht gespeichert...
Aufjedenfall, wurde mir meine Bitmap auf ausgedruckten Papier zentriert angezeigt aber viiiiel zu klein

[Namenloser]

Zitat von Metallicwar:

klasse, Delphi kotzt mich manchmal echt an. Ganze IDE abgeschmiert und nicht gespeichert...

Deswegen ist es bei mir mittlerweile zum Reflex geworden, nach jeder vollendeten Zeile Ctrl+Shift+S zu drücken. Bei BDS 2006 ist es aber auch echt schlimm...

Zitat von Metallicwar:

Aufjedenfall, wurde mir meine Bitmap auf ausgedruckten Papier zentriert angezeigt aber viiiiel zu klein

Das liegt daran, dass der Drucker eine viel höhere Aufösung als dein Montior hat. Da musst du entsprechend skalieren.

[Metallicwar]

habs mit folgender procedure versucht:

Delphi-Quellcode:

procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer);
begin
  if AZoomFactor = 100 then
    SetMapMode(Canvas.Handle, MM_TEXT)
  else
  begin
    SetMapMode(Canvas.Handle, MM_ISOTROPIC);
    SetWindowExtEx(Canvas.Handle, 100,100, nil);
    SetViewportExtEx(Canvas.Handle,AZoomFactor, AZoomFactor, nil);
  end;
end;

dazu habe ich procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer); in den interface Bereich zu den anderen proceduren geschrieben und unten einfach den gesamten Code eingefügt und in meinem Bereich wo das Formular gedruck wird folgendes: SetCanvasZoomFactor(Printer.canvas,70); ABER: Das Projekt wird nochnichteinmal kompiliert.

Code:

Ungenügend Forward -oder External-Deklerationen: TForm1.SetCanvasZoomFactor