Bonjour,
Encore un problème d'impression allez-vous dire, hé oui.
Ici =>
http://www.delphifr.com/codes/COMMENT-IMPRIMER_42263.aspx JAPEE que j'apprécie beaucoup montrait ce bout de code issu du F1 :
[code]
procedure TForm1.Button1Click(Sender:TObject);
var
I, Start, Stop: Integer;
begin
PrintDialog1.Options := [poPageNums, poSelection];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := PageControl1.PageCount;
PrintDialog1.MaxPage := PageControl1.PageCount;
if PrintDialog1.Execute then
begin
{ détermine l'ensemble que l'utilisateur souhaite imprimer }
with PrintDialog1 do
begin
if PrintRange = prAllPages then
begin
Start := MinPage - 1;
Stop := MaxPage - 1;
end
else if PrintRange = prSelection then
begin
Start := PageControl1.ActivePage.PageIndex;
Stop := Start;
end
else { PrintRange = prPageNums }
begin
Start := FromPage - 1;
Stop := ToPage - 1;
end;
end;
{ imprime les pages maintenant }
with Printer do
begin
BeginDoc;
for I := Start to Stop do
begin
PageControl1.Pages[I].PaintTo(Handle, 10, 10);
if I <> Stop then
NewPage;
end;
EndDoc;
end;
end;
end;
[/code]
Voui voui, mais bien que ce code se compile impec,
je tourne en rond quant à trouver le moyen d'affecter soit un Edit, soit un RichEdit à l'impression.Je dois encore être complètement bourré
Pouvez-vous me donner le truc permettant d'imprimer le contenu
texte, car ce code imprime seulement un
minuscule rectangle coloré de 5 x 1 millimètre.
(Je suis sous Vista et n'ai plus "mon F1")
Merci beaucoup et au plaisir de vous lire
