Alterar macro imprimir

2024 - VBA & Macros

3 Posts

2 Usuários

0 Reactions

1,076 Visualizações

RSS

marco acv

(@marco-acv)

Posts: 142

Estimable Member

Topic starter

Prezados, bom dia!

Eu tenho uma macro para imprimir uma planilha,

Sub IMPRIMIR()
'
' IMPRIMIR Macro
'

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

porém essa macro imprime direto (não permite o usuário escolher qual impressora ele gostaria de usar).

Tem como alterar essa macro para que exista essa opção? Tipo assim: activewindow “selecione uma impressora’

Desde já agradeço pela atenção de todos!

Atenciosamente,
Marco

Postado : 02/05/2017 7:20 am

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Tente assim

Sub Imprimir()

Application.Dialogs(xlDialogPrint).Show
 
End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 02/05/2017 8:11 am

marco acv

(@marco-acv)

Posts: 142

Estimable Member

Topic starter

Olá, bom dia!

Deu certo

Muito obrigado pela atenção.

Atenciosamente,
Marco

Postado : 02/05/2017 8:18 am