Page 1 of 1

Establecer impresora predeterminada

Posted: Sat Feb 08, 2014 2:34 pm
by RDFernandez
Estimados amigos:
Como hago para poner una impresora predeterminada al inicio del programa y dejar la anterior al salir.
Intento poner una impresora PDF al incio del programa, ya que imprimir a una no lo hace.

Print oPrn Name "Algo"To "PDFCreator" ....> no me funciona

Muchas gracias. Saludos.

Re: Establecer impresora predeterminada

Posted: Sun Feb 09, 2014 1:06 am
by informaticaeloy
Yo también empecé a intentar algo así, y al final he optado por poner en todas mis impresiones:

Code: Select all

         PRINT OPRN NAME "Factura " from user
         if Empty(oPrn:hDC)
            MsgStop("La impresora no está lista o impresión cancelada","Error !!!")
            select 1
            return nil
         endif

 
y así con el "from user" puedes seleccionar justo antes de imprimir donde lo quieres hacer.

Un saludo.

Re: Establecer impresora predeterminada

Posted: Thu Feb 13, 2014 12:44 am
by MarioG
Ruben;
Si compilas con xHarbour, tenes las siguientes funciones (ignoro si las trae Harbour, aunque supongo que si):
GetPrinters() - retorna un array de las impresoras disponibles, o la funcion FW:
aGetPrinters()
tambien dispones de (xHarbour):
GetDefaultPrinter() (para retener el nombre al inicio de tu app)

luego, con ello podés establecer la impresora por defecto mediante la funcion de FW
SetPrintDefault()
Sets the specified printer as the default printer.
Syntax:
SetPrintDefault( <cModel> ) --> nil

Parameters:
<cModel> The name of the new default printer.

Returns:
Nil

Source Code:

SOURCE\CLASSES\PRINTER.PRG
Repitiendo el proceso al finalizar tu programa con la que te devolvio la impresora por defecto

Re: Establecer impresora predeterminada

Posted: Thu Feb 13, 2014 3:07 am
by RDFernandez
Gracias Mario:

He intentado de todas formas.
Compilo con Harbour y aGetprinters funciona, pero cuando quiero dejar esa impresora como predeterminada, no lo hace.

Seguiré buscando, gracias.

Re: Establecer impresora predeterminada

Posted: Thu Feb 13, 2014 7:08 am
by colthop
Hola RDFernandez:

En vez de hacer predeterminada la impresora lo que puedes hacer es imprimir en la impresora que quieres siempre.

Por ejemplo si utilizas la clase PRINT:

PRINT oPrn TO zImpLis2

En donde zimplis2 es una variable pública con el nombre de la impresora sin blancos ni al principio ni al final.

Un saludo

Carlos

Re: Establecer impresora predeterminada

Posted: Thu Feb 13, 2014 7:19 am
by colthop
Hola no había leído del todo tu post.

Yo básicamente lo que hago es lo que te he puesto antes y funciona si le quero poner nombre al listado es cuando hago un PREVIEW y lo hago así en vez de con NAME:

PRINT oPrn PREVIEW TITLE "Nombre Listado" TO zImpLis2

zimplis2 lo saco de hacer un selección de todas las impresoras instaladas con "zImpr = aGetPrinters()" y lo presento para que la elija.

Espero que te ayude a mi si me funciona desde hace mucho.

Un saludo

Carlos

Re: Establecer impresora predeterminada

Posted: Wed Feb 19, 2014 12:13 am
by jll-fwh
Hola Ruben:

Usa la funcion:

Code: Select all

PrnSetDefault( "aqui el nombre de la impresora", "" )
Así obtienes las impresoras instaladas:

Code: Select all

aPrinters := aGetPrinters()            
Así la Impresora por Defecto:

Code: Select all

cPrinter := PrnGetName()    
Un saludo
JLL

Re: Establecer impresora predeterminada

Posted: Wed Feb 19, 2014 1:00 pm
by karinha

Code: Select all

METHOD New( cDocument, lUser, lPreview, cModel, lModal, lSelection, cFile ) CLASS TPrinter

   local aOffset
   local cPrinter

   DEFAULT cDocument  := "FiveWin Report" ,;
       lUser := .f., lPreview := .f., lModal := .f., lSelection := .f.

   if lUser

      ::hDC := GetPrintDC( GetActiveWindow(), lSelection, PrnGetPagNums() )

      if ::hDC != 0
         cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()
      endif

   elseif cModel == nil  // Modified: 16/01/2014

      ::hDC  := GetPrintDefault( GetActiveWindow() )

      cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()

      SetPrintDefault( cModel ) // NEW !!!  // 16/01/2014  Joao

   else

      cPrinter := GetProfString( "windows", "device" , "" )

      WriteProfString( "windows", "device", cModel )

      SysRefresh()

      PrinterInit()

      ::hDC := GetPrintDefault( GetActiveWindow() )

      SysRefresh()

      WriteProfString( "windows", "device", cPrinter  )

      SetPrintDefault( cPrinter ) // NEW !!!  Antonio Linares

   endif

   if ::hDC != 0
      aOffset    = PrnOffset( ::hDC )
      ::nXOffset = aOffset[ 1 ]
      ::nYOffset = aOffset[ 2 ]
      ::nOrient  = ::GetOrientation()
   elseif ComDlgXErr() != 0
      MsgStop( "There are no printers installed!"  + CRLF + ;
               "Please exit this application and install a printer." )
      ::nXOffset = 0
      ::nYOffset = 0
   else
      ::nXOffset = 0
      ::nYOffset = 0
      ::nOrient  = DMORIENT_PORTRAIT
   endif

   ::cDocument = cDocument
   ::cModel    = cModel
   ::nPage     = 0
   ::nPad      = 0
   ::lMeta     = .f.
   ::lPreview  = lPreview
   ::lStarted  = .F.
   ::lModified = .F.
   ::lPrvModal = lModal

   if ! Empty( cFile ) .and. Lower( Right( cFile, 3 ) ) == "pdf"
      ::cFile   = cFile
      ::lMeta     = .t.
   elseif ::lPreview
      ::lMeta     = .t.
   endif

   if ! ::lMeta
      ::hDcOut = ::hDC
   else
      ::aMeta  = {}
      ::cDir   = GetEnv( "TEMP" )

      if Empty( ::cDir )
         ::cDir = GetEnv( "TMP" )
      endif

      if Right( ::cDir, 1 ) == "\"
         ::cDir = SubStr( ::cDir, 1, Len( ::cDir ) - 1 )
      endif

      if ! Empty( ::cDir )
         if ! lIsDir( ::cDir )
            ::cDir = GetWinDir()
         endif
      else
         ::cDir := GetWinDir()
      endif
   endif

return Self

Re: Establecer impresora predeterminada

Posted: Wed Feb 19, 2014 8:16 pm
by RDFernandez
Gracias, gracias amigos. Solucionado con un poco de todos.

Cambie lo que dice karinha y ademas hice..

claImpreAnterior := PrnGetName()

nImprePDF:= AScan(aPrinters, "PDF")
cLaImpre :=aPrinters[nImprePDF]
cLaImpre := xTrim(cLaImpre) (ltrim+rTrim)
SetPrintDefault( cLaImpre )

Saludos y gracias.

Re: Establecer impresora predeterminada

Posted: Thu Feb 20, 2014 12:07 am
by MarioG
Que bueno que lo solucionaste!
QUE GRANDE ESTE FORO! :wink: :lol:

Re: Establecer impresora predeterminada

Posted: Thu Feb 20, 2014 12:18 am
by RDFernandez
Si Mario, es IMPONENTE.
Gracias a todos.