RE:Cargar report desde codigo
Publicado por
Ainhoa (1 intervención) el 05/07/2001 11:20:40
Sería algo como lo siguiente:
' Open and close print job (i.e. report)
' --------------------------------------
Declare Function PEOpenPrintJob Lib "crpe32.dll" (ByVal RptName$) As Integer
Declare Function PEClosePrintJob Lib "crpe32.dll" (ByVal printJob%) As Integer
' Start and cancel print job (i.e. print the report, usually after changing report)
' ---------------------------------------------------------------------------------
Declare Function PEStartPrintJob Lib "crpe32.dll" (ByVal printJob%, ByVal WaitOrNot%) As Integer
Declare Sub PECancelPrintJob Lib "crpe32.dll" (ByVal printJob%)
Esto en el módulo de Crystal para incluir la librería, y para la llamada lo siguiente.
Dim iJob As Single
Dim bRes As Boolean
iJob = PEOpenPrintJob(cadenaConNombreListado)
bRes = PESetAllowPromptDialog(iJob, False)
bRes = PEOutputToWindow(iJob, szText, 0, 0, 600, 400, 0, 0)
bRes = PEStartPrintJob(iJob, True)
Espero que te sirva, por cierto, si te enteras de cómo hacerlo para VC++ te agradecería una ayudita.
Ainhoa