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.
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
endifSetPrintDefault()
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
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.
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
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
PrnSetDefault( "aqui el nombre de la impresora", "" )aPrinters := aGetPrinters()cPrinter := PrnGetName()
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 SelfGracias, 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.
Que bueno que lo solucionaste!
QUE GRANDE ESTE FORO! 
Si Mario, es IMPONENTE.
Gracias a todos.