Imprimir un archivo.txt automaticamente

[newhbenn]

Buen día, tengo un archivo: Sticker.txt.
y lo mandaba a imprimir asi:
ShellExecute(Handle,nil,PChar('cmd.exe'),
PChar('/c copy C:\Object\Sticker.prn Lpt1'),nil,0);
pero ahora mi Pc solo tiene puerto USB; como puedo mandar a imprimir el archivo por código automaticamente a una de las Impresoras instaladas con puerto USB... gracias anticipadamente

[Neftali [Germán.Estévez]]

Prueba con algo así:

Código Delphi [-]
ShellExecute(Handle, 'print', 'C:\Object\Sticker.prn', nil, nil, 0);

[newhbenn]

Hola, estoy usando este comando, pero no funciona:
ShellExecute(Handle, 'print', 'C:\Object\Sticker.prn', nil, nil, 0);
tengo como impresora predetenminada: Generic / Text Only
y el puerto asignado a esta impresora es USB001.
Si lo imprimo manualmente abriendo el NotePad y selecciona esta impresora si lo hace pero automaticamente por delphi 6.0; no funciona, gracias