Formular zentriert ausdrucken

[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

[DeddyH]

Du hast es im interface-Teil wahrscheinlich als Methode der Form deklariert.

[Metallicwar]

ich Depp ^^

Delphi-Quellcode:

        begin
        with Printer do
          begin
            BeginDoc;
          try
            bitmapFormular := Formular.GetFormImage;
            X := (Printer.PageWidth - bitmapFormular.Width) div 2;
            Y:= (Printer.PageHeight - bitmapFormular.Height) div 2;
            Printer.Canvas.Draw(X,Y,bitmapFormular);
            SetCanvasZoomFactor(Printer.canvas,70);
          finally
            EndDoc;
          end;

nur wird mein Formular genauso ausgedruckt wie zuvor auch.

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;

[DeddyH]

Ich würde ja vor der Berechnung und Ausgabe den Zoomfaktor setzen.