none
Código StartDoc no funciona en W7 Starter con Región Argentina RRS feed

  • Pregunta

  • Hola, tengo un programa windows en el cual creo un archivo PDF y después mediante el comando "StartDoc" intento abrirlo.

    El programa abre (con el programa predetermiando para PDF) el PDF después de generarlo sin problemas en equipos de España.

    El problema es que en un PC de Argentina con W7 Starter no abre el PDF, sí crea el PDF con lo cual no creo que sea problema de permisos porque sino no lo crearía, pero después de crearlo desde el programa no lo abre y tampoco da error alguno (hay un Case que mostraría el error correspondiente y no muestra nada).

    ¿Saben porqué puede ser? El pdf generado está bien, se ha creado correctamente y si le abro desde la carpeta local donde se crea se ve perfectamente.

    El  My.Application.Info.DirectoryPath  no es problema porque sí lo interpreta para generar el PDF también debería interpretarlo para leer el PDF.

    Adjunto el código:

    report.ExportDocument(ExportFormat.Pdf, My.Application.Info.DirectoryPath + "\INFORME.pdf", settings)
                'Ya ha guardado el pdf en la ruta indicada, lo abrimos.
                Dim r As Long, msg As String
                r = StartDoc(My.Application.Info.DirectoryPath + "\INFORME.pdf")
                If r <= 32 Then
                    'There was an error
                    Select Case r
                        Case SE_ERR_FNF
                            msg = "No se ha encontrado el informe, inténtelo de nuevo."
                        Case SE_ERR_PNF
                            msg = "La ruta del informe no es correcta, inténtelo de nuevo."
                        Case SE_ERR_ACCESSDENIED
                            msg = "Acceso denegado al informe."
                        Case SE_ERR_OOM
                            msg = "Error de memoria."
                        Case SE_ERR_DLLNOTFOUND
                            msg = "Libería no encontrada."
                        Case SE_ERR_SHARE
                            msg = "Error en el intercambio."
                        Case SE_ERR_ASSOCINCOMPLETE
                            msg = "Ruta de archivo inválida o incorrecta."
                        Case SE_ERR_DDETIMEOUT
                            msg = "Se ha agotado el tiempo de espera."
                        Case SE_ERR_DDEFAIL
                            msg = "Ha fallado el traspaso del archivo."
                        Case SE_ERR_DDEBUSY
                            msg = "DDE busy"
                        Case SE_ERR_NOASSOC
                            msg = "No hay programa asociado a la extensión del archivo."
                        Case ERROR_BAD_FORMAT
                            msg = "Formato del archivo incorrecto."
                        Case Else
                            msg = "Error desconocido."
                    End Select
                    MsgBox(msg, MsgBoxStyle.Exclamation, "Se ha producido un error")
                End If
    Gracias!
    jueves, 24 de mayo de 2012 13:37

Todas las respuestas

  • Hola, me han comentado que en dos equipos con XP también sucede lo mismo crea el PDf pero no aparece la ventana para Abrir/Descargar.

    Hay alguna otra forma de llamar a un archivo PDF que está en una carpeta distinta del StartDoc??

     r = StartDoc(My.Application.Info.DirectoryPath + "\INFORME.pdf")

    PD: Estando el problema en el StartDoc no sé si está bien moverlo al subforo de Crystal, ya que es un informe pero no uso crystal y el problema es código VB.NET.

    miércoles, 30 de mayo de 2012 8:07