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
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
0