Error Macro Imprime múltiples hojas desde formulario

[JAVISHALOM]

Cordial saludo, y agradecimiento de antemano por su ayuda.  Tengo el siguiente código para imprimir varias hojas desde un Form, pero presenta error : ' error 21470224773 (8007007b)

 

Option Explicit

Private Sub CBRegistro_Click()
    Dim b As Boolean
    Dim Ruta As String
    Dim Nombre As String
    Dim paso2 As Boolean
    Nombre = UCase(InputBox("IMPRIMIR INFORME - ID DE ACCESO  -  Guardar una copia de los Registros de la Prueba ejecutada"))
    paso2 = False
    Select Case Nombre
    Case "PRIMERO"
    If UCase(InputBox("Introduce tu clave de acceso")) = "PRIMERO2020*" Then paso2 = True
    Case "CLAVEDOS"
    If UCase(InputBox("Introduce tu clave de acceso")) = "CLAVEDOS2020*" Then paso2 = True
    End Select

    If paso2 = True Then
  Const myDir As String = "C:\PRUEBAS\"
  b = True
' Aquí tengo 12 hojas para imprimir, solo muestro una…

  If ChBRegistro = True Then
    Sheets("REGISTRO").Select
    b = False
  End If

' Este era mi código inicial, y lo tengo igual en varios libros y funciona perfectamente pero de un momento a otro comenzó a mostrar  ' ' error 21470224773 (8007007b)
 '  ActiveSheet.ExportAsFixedFormat xlTypePDF, myDir & TextBox1, xlQualityStandard, True, False, OpenAfterPublish:=True
  Unload Me

'  Este código resaltado en amarillo no lo tenía antes
 ' Ahora con este nuevo código, permite introducir la clave, pero siempre muestra el mensaje  "No existe la carpeta  (PRUEBAS)
'  Quise adicionar estas 7 líneas de código, para un archivo que tiene 22 hojas que deseo imprimir, y presenta el mismo error


    If Dir(myDir & nomb) <> "" Then MsgBox "El archivo ya existe, debe indicar otro nombre.": Exit Sub
    
    On Error GoTo Err_Handler
ActiveSheet.ExportAsFixedFormat xlTypePDF, myDir & TextBox1, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    Exit Sub

Err_Handler:
    MsgBox "No existe la carpeta:" & vbLf & myDir

  Sheets("INICIO").Select
  Range("B12").Select
  
  End If
End Sub


Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If Button = 1 Then FormX = x: FormY = y
End Sub


En varias Oportunidades me lanza este error, y resalta este último código en amarillo...

En algún momento me mostró el error, sobre la declaración de las variables, pero no tomé nota del tema…

 

[Abraham Valencia]

Hola, no olvides que si las hojas están ocultas, no se pueden imprimir y no olvides, también, que exportar a pdf es como imprimir. Si estás intentando exportar a pdf hojas ocultas, necesariamente tienes que mostrarlas primero. De no ser nada de eso, tienes un problema con las rutas, verifícalas. 

[JAVISHALOM]

Hola, un cordial saludo...

No tengo ninguna hoja escondida...

[JAVISHALOM]

Hola, no tengo ninguna hoja protegida...

Gracias...

[Abraham Valencia]

¿Verificaste las rutas? Envía captura de pantalla del mensaje de erro que te manda y especifica la línea del erro ya que en lo que enviaste antes, no podemos saber cuál es.

[JAVISHALOM]

 

Cordial saludo,  adjunto enlace Google Drive de dos capturas de pantalla sobre los errores presentados  en la macro...

https://drive.google.com/file/d/1AVZ9XfnV0nAq2nh36nIBnkmXCVT6psNe/view?usp=sharing

https://drive.google.com/file/d/15mBnCG4vWcI4Zq7ZMoNn7X8p4haht58R/view?usp=sharing

[JAVISHALOM]

Muchas gracias por sus aportes...

 

avalencia...

[Abraham Valencia]

El segundo enlace pide autorización y el primero era solo el mensaje de error sin la línea correspondiente ¿o en el segundo enlace estaba eso?

[JAVISHALOM]

Hola cordial saludo, gracias por el apoyo

El código que muestra el error es éste: 

Ésta es la línea que muestra error...

 

Gracias nuevamente...

ActiveSheet.ExportAsFixedFormat xlTypePDF, myDir & TextBox1, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

[Abraham Valencia]

Pues parece que estás tratando de usar caracteres no permitidos para nombres de archivo como esos "dos puntos" que se ven en tu TextBox. No usar los siguientes \ / : * ? " < > | 

Si a pesar de eso sigue el error, entonces el dilema sería, como comenté antes, la ruta.

[JAVISHALOM]

Gracias por tu ayuda,  "aparentemente", fue la solución, estoy aburrido con las tales macros, ahora sin cambiar absolutamente nada a excepción de los 2 puntos del Texbox, imprime solo una hoja...   

 

Muchas gracias de todas formas...

Tema cerrado...