P'tit souci d'impression

Question

Salut à tous et à toutes!!!
J'aimerais que quelqu'un me renseigne au sujet des impression...
En effet j'essaie d'imprimer un DBGrid qui est lui même sur un Tabsheet...D'une PageControl...
Lorsque je fais PageControl.Pages[1].PaintTo(Handle, 10, 10);
Je n'ai comme résultat sur ma page pdf qu'un petit carré...ne repésentant meme pas la totalité de mon DBGrid...
Merci

dominique.stock · Answer

Bonjour,
As-tu du code à montrer ? 
Tu essaies d'imprimer ou de créer un pdf ?

Dom

Guenky · Answer

Salut!!!
Voici mon code...Enfin celui du bouton imprimer...:

procedure TMenuGestion.ImprimerClick(Sender: TObject);
var I, Start, Stop: integer;
begin
  PrintDialog.ToPage:=PageControl.PageCount;
  PrintDialog.MaxPage:=PageControl.PageCount;
  If PrintDialog.Execute then
    begin
      with PrintDialog do
      begin
        if PrintRange = prAllPages then
          begin
            Start:= MinPage - 1;
            Stop:= MaxPage - 1;
          end
        else if PrintRange =  prSelection then
               begin
                 Start:= PageControl.ActivePage.PageIndex;
                 Stop:= Start;
               end
             else
               begin
                 Start:= FromPage - 1;
                 Stop:= ToPage - 1;
               end;
      end;
      with Printer do
      begin
        BeginDoc;
        for I:= Start to Stop do
          begin
            PageControl.Pages[I].PaintTo(Handle, 10,10);
            If I<> Stop then NewPage;
          end;
        EndDoc;
      end;
   end;
end;

Guenky · Answer

Je veux faire une impression à la base...Mais un pdf c'est aussi imprimable...Donc ça me dérangerai pas des masses...

P'tit souci d'impression

3 réponses

Votre réponse

Discussions similaires