Clipper/FiveWin - Seleccionar impresora en FW para rep. en Crystal

 
Vista:

Seleccionar impresora en FW para rep. en Crystal

Publicado por Hugo Rodriguez (1 intervención) el 12/08/2005 16:51:15
Hola a todos

Tengo un programa que llama un reporte en Crystal el cual al darle el icono de imprimr (ese icono es de crystal), solo me muestra la impresora predeterminada de windows pero no me permite seleccionar otra más. ¿como le puedo hacer para que me muestre las otras impresoras que tengo en la red?. He visto que Crystal trae una instrucción llamada: PESelectPrinter pero no se como utilizarla ni donde ponerla para que me muestre las impresoras. Si alguien sabe, les agradeceria me dijeran por favor. Incluyo el procedimiento que tengo para ejecutar el reporte en crystal desde fivewin para que vean lo que estoy haciendo ya que tal vez, ahi me hace falta algo y no se que es...

FUNCTION ReporteDia(cTitle, cReportName, cDataFile) //Tit. ventana, archivo.rpt, Base.Dbf
LOCAL oChildWnd,hReport, oIni, oCrystal

oIni:= TINI():New(cVia1+"\Factura.Ini")
cReportName := oIni:Get("DATABASES","WORKINGDIR") + cReportName
DEFINE WINDOW oChildWnd MDICHILD OF oWnd TITLE cTitle

oCrystal := TCCRPE():NEW()
oCrystal:PEOPENPRINTJOB(cReportName)
oCrystal:PEOUTPUTTOWINDOW( oChildWnd )
oCrystal:PESETTABLOCATION(cDataFile)

ACTIVATE WINDOW oChildWnd ON INIT (oCrystal:PESTARTPRINTJOB(), HREPORT := OCRYSTAL:PEGETWINDOWHANDLE(),;
WNDSETSIZE(HREPORT,oChildWnd:NWIDTH-7,oChildWnd:NHEIGHT-33,.T.));
ON PAINT (WNDSETSIZE(HREPORT,oChildWnd:NWIDTH-7,oChildWnd:NHEIGHT-33,.T.));
VALID (OCRYSTAL:PECLOSEPRINTJOB(),.T.) MAXIMIZED
RETURN (.T.)

De antemano muchas gracias
Saludos cordiales
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder