Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Imprimir un archivo.txt automaticamente (https://www.clubdelphi.com/foros/showthread.php?t=63491)

newhbenn 17-02-2009 03:48:46

Imprimir un archivo.txt automaticamente
 
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] 17-02-2009 09:52:50

Prueba con algo así:

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

newhbenn 18-02-2009 00:50:00

Hola, gracias
 
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


La franja horaria es GMT +2. Ahora son las 22:32:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi