algerian001
Messages postés13Date d'inscriptionsamedi 24 janvier 2009StatutMembreDernière intervention23 avril 2009
-
31 déc. 2008 à 17:23
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDerniè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.
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 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).
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 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]);
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 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 !