Placa sin puerto LPT1

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
edufloriv
Posts: 240
Joined: Thu Nov 08, 2012 3:42 am
DBs Used: DBF, MariaDB, MySQL, MSSQL, MariaDB
Location: PERU

Placa sin puerto LPT1

Post by edufloriv »

Saludos amigos,

Hasta hace algún tiempo estuve usando los comandos de redirección de LPT1 para impresoras USB:
net use lpt1: \\192.168.xx.x\tiketera /persistent:yes
Y mis impresiones la hacia via código:

Code: Select all

      SET PRINTER TO LPT1
      ? LITTLON+BOLDOF
      ? etc...
Pero me tope con el caso de una computadora que no tiene LPT1 ni siquiera internamente. así que me lanza este error:
Error TERM/2014 Create error: lpt1.prn
Error Term/0 Printer error (DOS ERROR 5)
Deduzco que las ultimas placas ya no traen para nada, ni siquiera internamente el puerto LPT1, así que no hay forma de redirigir un puerto que no existe.

Agradeceré me alcancen una solución, compilo con HMG 3.0.46

Mil gracias por su atención y valioso tiempo.


Att.



Eduardo Flores Rivas
LIMA - PERU

Eduardo Flores Rivas


LIMA - PERU
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: Placa sin puerto LPT1

Post by andyglezl »

Hola Eduardo

Ya checaste que en las propiedades de la impresora por defecto te muestre si te aparecen los puertos LPTx.

Mi PC no tiene puerto fisico LPT1 y sin embargo aparecen en las propiedades...
PC-Sin LPT1.jpg
PC-Sin LPT1.jpg (185.4 KiB) Viewed 4161 times
Andrés González López
Desde Guadalajara, Jalisco. México.
User avatar
mol
Posts: 3774
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Contact:

Re: Placa sin puerto LPT1

Post by mol »

In my opinion, it will be better solution to direct printing to file:

Code: Select all

Set Printer to TmpFile.Prn
, then send file to printer by command:

Code: Select all

WIN_PRINTFILERAW( cPrinter, "TmpFile.Prn", cPrintJobTitle )
when cPrinter is name of printer from control panel.
It does not cause problems with network timeouts and etc...
User avatar
danielmaximiliano
Posts: 2625
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Placa sin puerto LPT1

Post by danielmaximiliano »

Buena opcion por MOL, tambien puedes instalar una puerto LPT1 virtual...
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
edufloriv
Posts: 240
Joined: Thu Nov 08, 2012 3:42 am
DBs Used: DBF, MariaDB, MySQL, MSSQL, MariaDB
Location: PERU

Re: Placa sin puerto LPT1

Post by edufloriv »

Amigos,

Gracias, voy a probar la opción de MOL.

Andy, con respecto a tu observación, efectivamente, aparece en las propiedades de la impresora los puertos LPT1 a LPT3, pero aparentemente, fisicamente, no existen. La otra computadora que esta en red, funciona perfecto, imprime, el problema es solo con una computadora.

Mil gracias por su tiempo amigos. Un abrazo.


Att.



Eduardo Flores Rivas
Lima - Perú

Eduardo Flores Rivas


LIMA - PERU
User avatar
edufloriv
Posts: 240
Joined: Thu Nov 08, 2012 3:42 am
DBs Used: DBF, MariaDB, MySQL, MSSQL, MariaDB
Location: PERU

Re: Placa sin puerto LPT1

Post by edufloriv »

Amigo MOL, amigos todos, son geniales. Funcionó !!! tanto tiempo complicándome con los .batch con el net use. Esta perfecto, ya no tengo que preocuparme del bendito puerto. Puedo trabajar con el nombre windows de la impresora !!! fantástico !!!.

Gracias mil de nuevo. Es increíble lo que uno puede aprender cada día.

Un gran abrazo.


Att.


Eduardo Flores Rivas
LIMA - PERU

Eduardo Flores Rivas


LIMA - PERU
User avatar
mol
Posts: 3774
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Contact:

Re: Placa sin puerto LPT1

Post by mol »

It's great pleasure to make you so happy with little two lines of code :-D
Regards, Marek MOL
User avatar
quartz565
Posts: 670
Joined: Mon Oct 01, 2012 12:37 pm
Location: Thessaloniki, Greece
Contact:

Re: Placa sin puerto LPT1

Post by quartz565 »

Or…

Code: Select all

SET CONSOLE OFF
SET ALTERNATE TO  __file.txt
SET ALTERNATE ON 

 ? LITTLON+BOLDOF
  ? etc...

CLOSE ALTERNATE
then

Code: Select all

WIN_PRINTFILERAW( cPrinter, "__file.txt", cPrintJobTitle )
Best Regards,
Nikos.

os: Windows Server 2019 - 64
Post Reply