SoloCodigo

Hola!
Mi problema es que estoy intentando lanzar un report, pero ni siquiera consigo abrirlo y no se la razón. Esto es lo que hago:
(frmLanzar)
Private Sub cmLanzar_Click()
    sListEsp = App.Path & "Report"
    sListado = "LRCONT001.RPT"
    Dim sNomF As String
    sNomF = sListEsp & "" & "LRCONT001.RPT"
    Call AbrirTrabajo(sNomF)
End Sub
-------------------------------------------------
(modLanzar)
Declare Function PEOpenPrintJob Lib "crpe32.dll" (ByVal RptName$) As Integer
Global Job%

Sub AbrirTrabajo(sListado As String)
    Job% = PEOpenPrintJob(sListado)
End Sub

¿Puede alguien ayudarme?
Mucas gracias.