pouvoir imprimer seulement ce que l'on veut ?????Résolu

Question

bonjour a tous !!!

Voila mon probleme.... sur lequel je galere grave !!!

j'ai creer un Bdd avec des TpageControl....  ou il y a :

5 TBEdit, 4 TEdit, 1 DBmemo.sur un meme Tpage.

je voudrais pouvoir imprime, 3 TEdit et le DBMemo mais rien d'autre. et
la je plante j'arrive a imprime, mais tout !!! et je cherche a imprime
une parti seulement et choisis par moi.

mon but c'est que j'ai en haut les donnees de mes clients ,nom adresse,
ect et dans le DBMemo les reparations efectuez et les 3 TEdit se sont
les totos.

voila ...........j'espere avoir ete clair dans ma question?

merci d'avance a tous

Teq @+

vaughan · Accepted Answer

Voici le code unit&#233; complet : j'ai mis la proc&#233;dure dans la TForm1 en private.
Sur ma TForm j'ai ajout&#233; un TImage et un Tbutton.

unit CopieImage;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, ExtCtrls, jpeg;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    Procedure Capture;
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}



procedure TForm1.Capture;
var
  vCanvas: TCanvas;
  vRect  :Trect;
  vBmp   :TBitmap;
begin
  vCanvas:=TCanvas.Create;
  Try
    vBmp:=Tbitmap.Create;
    Try
      //Trouve le handle de la fen&#234;tre active
      vCanvas.Handle:=GetWindowDC(GetForeGroundWindow);
      //Charge avec sa position et sa taille
      GetWindowRect(GetForeGroundWindow,vRect);
      //Largeur du Bitmap
      vBmp.Width:=vRect.Right-vRect.Left;
      //Hauteur du Bitmap
      vBmp.Height:=vRect.Bottom-vRect.Top;
      //Copie le Canvas de la fen&#234;tre dans le Bitmap
      BitBlt(vBmp.Canvas.Handle,0,0,vBmp.Width,vBmp.Height,vCanvas.Handle,0,0, SRCCOPY);
      Image1.Picture.Graphic.Assign(vBmp);
    Finally
      vBmp.Free;
    End;
  Finally
    vCanvas.Free;
  End;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Capture;
end;


end.

vaughan

vaughan · Answer

vaughan

vaughan · Answer

Tu veux seulement imprimer une partie de ta fen&#234;tre &#233;cran

vaughan

tequilasurlaterre · Answer

bonjour vaughan
et oui c'est ca !!
pouvoir choisir soit une parti .
j'ai une petite piste avec rave report !!!!
merci a toi
@+
Teq

vaughan · Answer

Voici un bout de code qui fonctionne tr&#233;s bien que je viens de faire sous haute inspiration. Il copie dans un TImage la fen&#234;tre active. Il te reste &#224; jouer sur les dimension :

procedure TForm1.Capture;
var
  vCanvas: TCanvas;
  vRect  :Trect;
  vBmp   :TBitmap;
begin
  vCanvas:=TCanvas.Create;
  Try
    vBmp:=Tbitmap.Create;
    Try
      //Trouve le handle de la fen&#234;tre active
      vCanvas.Handle:=GetWindowDC(GetForeGroundWindow);
      //Charge avec sa position et sa taille
      GetWindowRect(GetForeGroundWindow,vRect);
      //Largeur du Bitmap
      vBmp.Width:=vRect.Right-vRect.Left;
      //Hauteur du Bitmap
      vBmp.Height:=vRect.Bottom-vRect.Top;
      //Copie le Canvas de la fen&#234;tre dans le Bitmap
      BitBlt(vBmp.Canvas.Handle,0,0,vBmp.Width,vBmp.Height,vCanvas.Handle,0,0, SRCCOPY);
      Image1.Picture.Graphic.Assign(vBmp);
    Finally
      vBmp.Free;
    End;
  Finally
    vCanvas.Free;
  End;
end;

vaughan

tequilasurlaterre · Answer

re-bonjour vaughan
merci pour ton code c'est kool de ta part ...
mais quand je le copie sur une fiche il plante sur procedure ??
ou dois-je insere ton code exactement...oups.... n'oublie pas que je suis un debutant
alors si tu pouvais pouss&#233; un peut plus dans le details...
merci encore pour ton aide
@+
Teq

tequilasurlaterre · Answer

re-re-bonjour vaughan
super ca marche, enfin j'ai compris 

merci et encore merci a toi vaughan.........
@+
Teq

Pouvoir imprimer seulement ce que l'on veut ?????

7 réponses

Votre réponse

Discussions similaires