Impression sous delphi

algerian001 Messages postés 13 Date d'inscription samedi 24 janvier 2009 Statut Membre Dernière intervention 23 avril 2009 - 31 déc. 2008 à 17:23
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 31 déc. 2008 à 19:52
bonjour
je cherche d'imprimer des documents de mon application sous delphi
mais je veux utiliser une autre façon d'impression que l'utilisation de QREPORT
pouvez vous m'aider
salutations.






 

4 réponses

Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 10
31 déc. 2008 à 18:55
Tu peux utiliser l'unité Printers (ou quelque chose comme ça ...) tu peux imprimer tout document sous la forme de bitmap - voir Printer.Canvas (tu copies ton document dans le canevas).

Cordialement, Bacterius !
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 13
31 déc. 2008 à 19:47
bonsoir,

dans l'aide de delphi :

procedure TForm1.Button1Click(Sender: TObject);
var
  r: TRect;
  i: Integer;
begin
  with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      Canvas.Brush.Style := bsClear;
      for i := 0 to Memo1.Lines.Count do
       Canvas.TextOut(200,200 + (i *
                   Canvas.TextHeight(Memo1.Lines.Strings[i])),
                   Memo1.Lines.Strings[i]);


      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;
end;

cantador
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 10
31 déc. 2008 à 19:51
Oui, cela pour copier un mémo, ou tout objet TStrings.
Et puis, pour copier un document RichEdit (par exemple), c'est encore plus simple ! Il suffit de faire un Printer.Canvas.Draw ! (le RichEdit possède un canevas).
De même pour un bitmap ...
Cordialement, Bacterius !
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 10
31 déc. 2008 à 19:52
Oh mon dieu ! j'ai oublié l'espace derrière ma signature !
Première fois depuis des mois ... Je me rattrape vite vite !


Cordialement, Bacterius !
Rejoignez-nous