Normalmente realizo las impresiones CON PREVIEW y con la impresora determinada. Me gustaria seguir asi, pero incorporar a la cabecera del preview un combobox, con las impresoras instaladas, al fin de que, si lo desea el usuario, cambie la impresora a imprimir. 驴Alquien tiene hecho algo sobre esto?
Hola Manuel
Asi como lo comentas, no.
Lo que tengo es poquito alrevez 
, selecciono una impresora en un combobox de todas las impresoras ya instaladas en la Pc y a cada reporte se le puede asignar X impresora, ya sea local o de red.
Aunque, lo que comentas, suena muy bien. 
Saludos
Raymundo,
Gracias por tu respuesta.
Lo que busco es que por defecto, al usuario le salga el previo sin tener que seleccionar la impresora.- Solo en el caso de que lo necesite, tener un combobox, en el propio preview, para seleccionar otra impresora que la prederminada (por ejemplo, para imprimir en una impresora PDF y mandarla por email).
Ya lo he conseguido, pero a medias:
1) Con aGetPrinters(), consigo la lista de impresoras y la pongo en un ComboBox en la barra del preview.
2) Si cambio este Combo (ON CHANGE) me funciona con oDevice:hDC:=GetPrintDC(), pero claro, sale el cuadro de Windows para elegir de nuevo la impresora, y me gustaria evitarlo. Todos los intentos que he hecho para que al cambiar el ComboBox tome como activa la nueva impresora, han sido inutiles. 驴Alguien podr铆a echarme una ayudita?
驴Que tengo que poner para que al elegir una impresora en el Combo, el programa tome como activa dicha impresora?.
Solucionado:
//------------------------------------------------------------------------
// funci贸n para cambiar la impresora desde previo (mcn)
//------------------------------------------------------------------------
func f_CamImpre (oDevice, cCbx )
local cPrinter
cPrinter := GetProfString( "windows", "device" , "" )
WriteProfString( "windows", "device", cCbx )
SysRefresh()
PrinterInit()
oDevice:hDC := GetPrintDefault( GetActiveWindow() )
SysRefresh()
WriteProfString( "windows", "device", cPrinter )
RETURN nil
Manuel Valdenebro wrote:Solucionado:
//------------------------------------------------------------------------
// funci贸n para cambiar la impresora desde previo (mcn)
//------------------------------------------------------------------------
func f_CamImpre (oDevice, cCbx )
local cPrinter
cPrinter := GetProfString( "windows", "device" , "" )
WriteProfString( "windows", "device", cCbx )
SysRefresh()
PrinterInit()
oDevice:hDC := GetPrintDefault( GetActiveWindow() )
SysRefresh()
WriteProfString( "windows", "device", cPrinter )
RETURN nil
William,
En las impresoras que utilizo (HP laser) me funciona. Intentar茅 probar en otras para comprobarlo.
