bonjour
je cherche a imprimer sur le port lpt1 avec ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
{$I-} 
 AssignFile(ParrallelPort,'LPT1'); 
 Rewrite(ParrallelPort); 
 if IOResult=0 then begin 
   write(ParrallelPort,s); 
 end 
 else  MessageDlg('Vérifiez que votre imprimante est allumée et correctement reliée a '+#13+#10+'l''ordinateur puis réesséyez de nouveau .', mtWarning, [mbOK], 0); 
{$I+}

malheureusement ça ne marche que si l'imprimante est reliée et allumée sinon l'application plante

c'est une imprimante a ticket qui commande un tiroir caisse

merci et bonne fin de journée