Imprimir página | Cerrar ventana

Impresora Predeterminada

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86731
Fecha de impresión: 26/Marzo/2026 a las 17:28


Tema: Impresora Predeterminada
Publicado por: Gladiador
Asunto: Impresora Predeterminada
Fecha de publicación: 30/Junio/2023 a las 06:27
Hola a todos

Quisiera me ayuden para construir una macro que me elija una impresora al abrir un libro

He alternado la macro con una de estas instrucciones y me da error

Sub Imp_predeterminada()
'
'
'ActiveWindow.SelectedSheets.ActivePrinter = "Microsoft Print to PDF"

'    Application.ActivePrinter = "Microsoft Print to PDF"

Application.ActivePrinter = PDFCreator
'
    
End Sub

El cuadro de error dice:
Se ha producido un error '1004' en tiempo de ejecución:
Error en el método 'ActivePtinter' de objeto _Application
Gracias

Gladiador


Respuestas:
Publicado por: acilu55
Fecha de publicación: 11/Marzo/2024 a las 21:21
Yo elegiría la impresora al imprimir
ActiveWindow.SelectedSheets.PrintOut , 1, 1, vbYes, "pdfcreator", , , IgnorePrintAreas:=False
siendo "pdfcreator" el nombre de la impresora y después dejaría a windows que elija como predeterminada la ultima que usaste en la aplicación, cosa que podrás verificar con

MsgBox "The name of the active printer is " & Application.ActivePrinter

y en las siguientes impresiones no tendrás que escogerla tú 
si no es así podrás elegir la impresora que quieras sin mas que cambiar el nombre en la línea de impresión


-------------
Gracias a todos de antemano


Imprimir página | Cerrar ventana