1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| var
FichierImp: TextFile;
printDialog : TPrintDialog;
begin
// Creation d'une boite de dialoque pour choisir l'imprimante
printDialog := TPrintDialog.Create(Form1);
// Sélection d'une imprimante
if printDialog.Execute then
begin
// Essaie d'utiliser un fichier imprimante
AssignPrn(FichierImp);
// on se prépare à écricre vers l'imprimante
ReWrite(FichierImp);
// envoi des données vers l'imprimante
while not Eof(FichierTEMP) do
begin
Readln(FichierTEMP, LigneFichierTexte);
WriteLn(FichierImp, LigneFichierTexte);
end;
// Fermer le fichier
CloseFile(FichierImp);
end;
end; |
Partager