No funciana mandar fichero txt a impresora con XE2

[engranaje]

has probado a modificar esto:

Código Delphi [-]
  DocInfo.pOutputFile := nil;

para pasar como poutputfile el puerto de la impresora en lugar de nulo?
mas o menos asi:

Código Delphi [-]
  DocInfo.pOutputFile := sPort;

[comba]

Hola engranaje

He modificado lo que me habias comentado pero me da este error.

E2010 Incompatible types: 'PAnsiChar' and 'array[0..255] of Char'

[engranaje]

cierto, puedes probar con:

Código Delphi [-]
  DocInfo.pOutputFile := @sPort;

Aunque lo cierto es que creo que es mejor trabajar directamente sobr Pchar, declarando las variables asi:

Código Delphi [-]
 
var
   pDevice :PChar;
   PDriver :Pchar;
   pPort   :Pchar;
   hdMode  : Thandle;

cargandolas asi:

Código Delphi [-]
  getMem(pDevice, cchDeviceName);
  getmem(pDriver,MAX_PATH);
  GetMem(pPort,MAX_PATH);
  printer.GetPrinter(pDevice,pDriver,pPort,hDMode);

y liberando la memoria cuando corresponda:

Código Delphi [-]
  if assigned(pDevice) then 
    freeMem(pDevice, cchDeviceName);
  if assigned(pDevice) then   
    freemem(pDriver,MAX_PATH);  
  if assigned(pDevice) then 
    freeMem(pPort,MAX_PATH);

[[ElKurgan]]

Hola, Comba.

He probado tu código en un XE2 y en un XE5, sin cambiar nada, y en ambos casos ha funcionado correctamente.

Eso si, no tengo ninguna impresora de tickets, pero lo he lanzado a una LaserJet 4200 y ha ido de lujo.

El problema seguramente lo tendrás en otro sitio.

Saludos