Alaska Software Inc. - Problema con XbpPrinter
Username: Password:
AuthorTopic: Problema con XbpPrinter
Nolberto Paulino EsterellProblema con XbpPrinter
on Tue, 17 May 2011 08:15:36 -0400
Hola al Grupo
Si me puede ayudar, necesito imprimir usando xbpprinter
mire este ejemplo

 cPuertoPrinter := "Epson LX-300+"
 oPrinter:=XbpPrinter():New( )
 oPrinter:Create( cPuertoPrinter )

  SET PRINTER ON
  SET DEVICE  TO PRINTER 
  SET PRINTER TO OBJECT oPrinter
  
  @ 1,1 SAY  "Prueba"

 SET PRINTER TO 
 SET PRINTER OFF 
 SET DEVICE TO SCREEN


 El problema es que no me imprime en el Printer  que le especifico
 solo me imprime en el printer que tiene windows por defecto.
 y si hay un HP Laser Siempre imprime en ese Puerto.


Nolberto Paulino
Un cordial saludo
Edgar Borger Re: Problema con XbpPrinter
on Tue, 17 May 2011 10:40:46 -0300
Hola Norberto,

no necessitas el SET PRINTER ON, y los dos otros comandos son separados, o sea :

SET PRINTER TO OBJECT oPrinter
SET DEVICE TO PRINT

@ 1,1 say "kjhkjhkjh"

SET DEVICE TO SCREEN
SET PRINTER TO

Saludos
Edgar

Em 17/05/2011 09:15, Nolberto Paulino Esterell escreveu:
>
> Hola al Grupo
> Si me puede ayudar, necesito imprimir usando xbpprinter
> mire este ejemplo
>
> cPuertoPrinter := "Epson LX-300+"
> oPrinter:=XbpPrinter():New( )
> oPrinter:Create( cPuertoPrinter )
>
> SET PRINTER ON
> SET DEVICE TO PRINTER SET PRINTER TO OBJECT oPrinter
>
> @ 1,1 SAY "Prueba"
>
> SET PRINTER TO SET PRINTER OFF SET DEVICE TO SCREEN
>
>
> El problema es que no me imprime en el Printer que le especifico
> solo me imprime en el printer que tiene windows por defecto.
> y si hay un HP Laser Siempre imprime en ese Puerto.
>
>
> Nolberto Paulino
> Un cordial saludo
>
>
>
>
Edgar Borger Re: Problema con XbpPrinter
on Tue, 17 May 2011 10:43:19 -0300
Lo hice así :


xxx := xbpprinter():new()
lista := xxx:list()
a = ascan(lista, {|x|'EPSON' $ upper(x) })
if a <> 0
	b := lista[a]
	xxx:create(b)
endif

set printer to object xxx

para estar seguro del nombre ...
Edgar



Em 17/05/2011 09:15, Nolberto Paulino Esterell escreveu:
>
> Hola al Grupo
> Si me puede ayudar, necesito imprimir usando xbpprinter
> mire este ejemplo
>
> cPuertoPrinter := "Epson LX-300+"
> oPrinter:=XbpPrinter():New( )
> oPrinter:Create( cPuertoPrinter )
>
> SET PRINTER ON
> SET DEVICE TO PRINTER SET PRINTER TO OBJECT oPrinter
>
> @ 1,1 SAY "Prueba"
>
> SET PRINTER TO SET PRINTER OFF SET DEVICE TO SCREEN
>
>
> El problema es que no me imprime en el Printer que le especifico
> solo me imprime en el printer que tiene windows por defecto.
> y si hay un HP Laser Siempre imprime en ese Puerto.
>
>
> Nolberto Paulino
> Un cordial saludo
>
>
>
>
Jorge LRe: Problema con XbpPrinter
on Tue, 17 May 2011 11:14:10 -0300
Nolberto

también debes corroborar que el nombre de la impresora sea el mismo que 
tiene el panel de control



"Nolberto Paulino Esterell" escribió en el mensaje de 
noticias:45a2852a$3c4e455$3aa1f@news.alaska-software.com...


Hola al Grupo
Si me puede ayudar, necesito imprimir usando xbpprinter
mire este ejemplo

cPuertoPrinter := "Epson LX-300+"
oPrinter:=XbpPrinter():New( )
oPrinter:Create( cPuertoPrinter )

  SET PRINTER ON
  SET DEVICE  TO PRINTER
  SET PRINTER TO OBJECT oPrinter

  @ 1,1 SAY  "Prueba"

SET PRINTER TO
SET PRINTER OFF
SET DEVICE TO SCREEN


El problema es que no me imprime en el Printer  que le especifico
solo me imprime en el printer que tiene windows por defecto.
y si hay un HP Laser Siempre imprime en ese Puerto.


Nolberto Paulino
Un cordial saludo
Jorge LRe: Problema con XbpPrinter
on Tue, 17 May 2011 11:18:19 -0300
Nolberto,

particularmente uso esta sintaxis

      oPrn  := XbpPrinter():New()
      oPrn:Create( cNombrePrn )
      If ( Upper( oPrn:devName ) = Upper( cNombrePrn ) )
         Set( _SET_PRINTFILE, oPrn )           salida prefijada


"Jorge L"  escribió en el mensaje de 
noticias:180d7dfe$3e04a4fc$3b19b@news.alaska-software.com...

Nolberto

también debes corroborar que el nombre de la impresora sea el mismo que
tiene el panel de control



"Nolberto Paulino Esterell" escribió en el mensaje de
noticias:45a2852a$3c4e455$3aa1f@news.alaska-software.com...


Hola al Grupo
Si me puede ayudar, necesito imprimir usando xbpprinter
mire este ejemplo

cPuertoPrinter := "Epson LX-300+"
oPrinter:=XbpPrinter():New( )
oPrinter:Create( cPuertoPrinter )

  SET PRINTER ON
  SET DEVICE  TO PRINTER
  SET PRINTER TO OBJECT oPrinter

  @ 1,1 SAY  "Prueba"

SET PRINTER TO
SET PRINTER OFF
SET DEVICE TO SCREEN


El problema es que no me imprime en el Printer  que le especifico
solo me imprime en el printer que tiene windows por defecto.
y si hay un HP Laser Siempre imprime en ese Puerto.


Nolberto Paulino
Un cordial saludo