Savez-vous comment faire pour imprimer une form en entière, car elle dépasse de l'écran, en format paysage ?

J'ai déjà essayé form.print et ceci :

// PrintScale : type de mise à l'échelle de la form à imprimer
  // Valeurs possibles : aucune (poNone) [par défaut], proportionnelle
  // (poProportional) ou ajustée à la page (poPrintToFit)
  PrintScale := poProportional;
  // Printer.Orientation : disposition en portrait (poPortrait)
  // ou paysage (poLandscape)
  Printer.Orientation := poLandscape;
  // Imprime un aperçu de la form
  Print;

sans success.

Merci de votre réponse.

[:)]

Salut,
tu peux essayer de passer par un Bitmap :


pour tester tu mets un bouton et un TImage sur une form (TImage : AutoSize à False et Stretch à True et de taille plus petite que la Form) et tu complètes comme ceci :

Procedure FormShot(bmp: TBitMap);
var
  c: TCanvas;
  r: TRect;
begin
  c:= TCanvas.Create;
  c.Handle:= GetWindowDC (Form1.Handle);
  try             
    r:= Rect(0,0,Form1.width,Form1.height);
    bmp.Width:=Form1.Width;
    bmp.Height:=Form1.Height;
    bmp.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.handle);
    c.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var Bm : TBitmap;
begin
  Bm := TBitmap.Create;
  FormShot(Bm);
  Image1.Picture.Bitmap.Assign(Bm);
  Bm.Free;
end;

ensuite tu peux imprimer le bmp très facilement

Il existe peut être une autre solution mais celle-ci fonctionne

@+
Cirec

Il serait plus simple d'utiliser GetFormImage, non?

@+
Nico {www.ni69.info}

---

Merci, je vais tester.

[:)]

Merci, mais comment imprimer l'image générée ?

[:)]

look :
http://www.delphifr.com/infomsg_PROBLEME-IMPRESSION-FORM_394339.aspx

@+
Nico {www.ni69.info}

---

Désolé mais le code que tu m'a donné c'est comme si je faisais FORM1.PRINT

Je ne veux pas de cela, car ma form est plus grande que l'écran.

Je veux que ce qui dépasse de l'écran soit imprimé aussi.

Merci de votre aide

[:)]

Salut, D'après ce que je vois la méthode de Cirec consiste à faire un sorte de scren shot de ta forme et d'afficher dans un TImage. Il te reste alors à imprimer le contenu de ton TImage. De ce fait la méthode de Cirec doit fonctionner.

non, je conteste bdgta, mon code adapte la taille de l'image à la taille de la page.
Pour voir cela, il suffit de lire tout le contenu du thread de discussion.

@+
Nico {www.ni69.info}

---

@Nico, la différence entre ma méthode et GetFormImage c'est que
GetFormImage renvoie une image du ClientRect et pas de toute la Form, avec l'autre méthode tu obtiens la Form complète avec le cadre (c'est une vraie impression de Form)

Tiens d'ailleurs à propos d'impression, voici un exemple :

cette exemple est des plus simples, il imprime la Form en mode paysage et il stretch l'image a la taille de la feuille sans tenir compte des proportions

procedure TForm1.Button2Click(Sender: TObject);
Var MargeX,MargeY:Integer;
begin
    with Printer do
    begin
      Orientation := poLandscape;
      MargeX:=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
      MargeY:=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
      BeginDoc;
      StretchBlt(Canvas.Handle, MargeX, MargeY, PageWidth - MargeX * 2
                , PageHeight - MargeY * 2, GetWindowDC(Form1.Handle), 0, 0, Width
                , Height, srcCopy);
      EndDoc;
    end;
end;


@+
Cirec