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:
Así la Impresora por Defecto:
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!
Re: Establecer impresora predeterminada
Posted: Thu Feb 20, 2014 12:18 am
by RDFernandez
Si Mario, es IMPONENTE.
Gracias a todos.