Discussion :

[yoyo72]

Bonjour à tous,

Voilà j'ai une application delphi qui imprime aujourd'hui vers une étiqueteuse intermec PX6i via le réseau en utilisant le driver GENERIC TEXT et en utilisant la fonction "assignprn".

Seulement, je dois modifier l'application pour diriger les impressions vers différentes étiqueteuses du réseau.

J'ai essayé avec TPrinters mais cela ne fonctionne pas. Pourtant je n'imprime qu'un simple fichier texte.

Si quelqu'un a une idée ..

Merci d'avance.

[Linkin]

Avez-vous créé une imprimante Windows par Imprimante Intermec?

Changez-vous bien d'imprimante (Printer.PrinterIndex). (Je te dis ça de tête parce que je n'ai plus d'imprimante Intermec pour tester).

[yoyo72]

Bonjour

merci pour la réponse.

Je change bien l'index mais ce qui ne va pas c'est que lorsque je suis sur le "EndDoc", cela devrait lance l'impression mais le spool indique que "l'impression est en cours" et aussi "en suppression".

Je ne vois pas.

[anapurna]

salut


il nous est dificile de repondre sans voir ce que tu as fait
voila un bout de code qui devrait fonctionner a toi de le modifier pour ton usage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
 
Uses WinSpool;
 
 
Procedure PrintLineToGeneric(Const line: string );
Var
  BytesWritten: DWORD;
  hPrinter: THandle;
  DocInfo: TDocInfo1;
  PrtName:String; 
Begin
  PrtName:=Printer.Printers[Printer.PrinterIndex]; // Default printer name
  If not WinSpool.OpenPrinter(Pchar(PrtName), hPrinter, nil) Then
    raise exception.create('Printer not found');
  Try
    DocInfo.pDocName := 'MyDocument';
    DocInfo.pOutputFile := Nil;
    DocInfo.pDatatype := 'RAW';
    If StartDocPrinter(hPrinter, 1, @DocInfo) = 0 Then
      Abort;
 
    Try
      If not StartPagePrinter(hPrinter) Then
        Abort;
      try
        If not WritePrinter(hPrinter, @line[1], Length(line), BytesWritten)
        Then
          Abort;
      Finally
        EndPagePrinter(hPrinter);
      End;
    Finally
      EndDocPrinter(hPrinter);
    End;
  Finally
    WinSpool.ClosePrinter(hPrinter);
  End;
End;

@+ Phil