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