Udskrift af form

Kan du ikke forklare det lidt bedre ?

Hvad mener du med "stikker uden for formen"

Stoney

Altså, der er controls uden for formens synlige område - dvs. der er scrollbars

er det quickreport?

eller hvad går det ud på?

Det er bare en form... Ikke mere end en form med et image og nogle labels

Hvis du bruger Frmxxxxx.Print funktionen, udskrives kun det, som du ser på skærmen.
Skal du have hele formen ud, må du ind og rette i skærmens opløsning, så hele formen kan ses på skærmen.
Pjotre

Du skal definere printeren i uses:
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Printers;
Herefter skal følgende kodes:
Printer.Orientation := poLandscape;  {A4 liggende}
Form1.PrintScale := poPrintToFit;    {Scaler så den passer til print}
Form1.Print;                          {Udskriv print}
Mvh
Pjotre

Det lykkedes ikke at få den til at printe formen, men jeg har tegnet det hele til en bitmap og lagt den på printerens canvas... Kode følger:

procedure TForm3.PrintSeddel();
var
  Bitmap: TBitmap;
  OffX, OffY, I: Integer;
begin
  OffX := 45;
  OffY := 25;
  BitMap:=TBitmap.Create;
  BitMap.LoadFromFile(ExtractFilePath(Application.ExeName)+'timeseddel.bmp');
  with Printer do
  begin
    BeginDoc;
    for I := 0 to ControlCount -1 do
    if (Controls[I] is TLabel) then
      if TLabel(Controls[I]).Name <> '' then
      begin
        Bitmap.Canvas.Font := TLabel(Controls[I]).Font;
        Bitmap.Canvas.TextOut(TLabel(Controls[I]).Left, TLabel(Controls[I]).Top, TLabel(Controls[I]).Caption);
        TLabel(Controls[I]).Visible := False;
      end;
    Canvas.StretchDraw(rect(OffX, OffY, Printer.PageWidth - OffX, Printer.PageHeight - OffY), Image1.Picture.Bitmap);
    EndDoc;
  end;
end;

Se kommentar D. 20/10-2004 15:34:12