Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro em tempo de ex...
 
Notifications
Clear all

Erro em tempo de execução '424'

 
2024 - VBA & Macros
Post Recente por teleguiado 7 anos atrás
3 Posts
3 Usuários
0 Reactions
885 Visualizações
RSS
 Anderson76
(@anderson76)
Posts: 0
New Member
Topic starter
 

Olá, boa tarde!
Estou tentando criar uma Macro de impressão com os seguintes comandos abaixo, mas no ato da execução, ele atribui o erro: Erro em tempo de execução '424' O objeto é obrigatório.
Alguém poderia me ajudar?

Sub Imprimir()

Sheets("Relatório").Select
Range("a1:h47").Select
copias = InputBox("Quantas cópias?")
    Previa
    Application.Dialogs(xlDialogPrinterSetup).Show
    Selection.PrintOut Copies:=Int(copias), Collate:=True
        
End Sub

Sub Previa()

Dim Resp As VbMsgBoxResult
    ActiWindow.SelectedSheets.PrintPreview
    Resp = MsgBox("Continuar com a impressão?", vbYesNo)
    If Resp = vbNo Then
   End
   End If
        
End Sub
 
Postado : 24/08/2017 2:24 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Anderson76,

Boa noite!

Movi sua mensagem para o local adequado (VBA & Macros) pois o local onde você postou é restrito para a apresentação de novos usuários.

Solicitamos, também, por gentileza, nas próximas vezes que postar código VBA aqui no fórum utilizar a TAG CODE que fica localizado no início da caixa de mensagens.

Como você é novato no fórum, para melhor aproveitar o mesmo, mantendo-o de forma organizada, por gentileza, leia atentamente as regras abaixo:

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

 
Postado : 24/08/2017 4:57 pm
 teleguiado
(@teleguiado)
Posts: 0
New Member
 

Anderson, tente assim:

Sub Imprimir()
Dim copias

Sheets("Relatório").Select
Range("a1:h47").Select
copias = InputBox("Quantas cópias?")
    Previa
    Application.Dialogs(xlDialogPrinterSetup).Show
    Selection.PrintOut Copies:=Int(copias), Collate:=True
       
End Sub

Sub Previa()

Dim Resp As VbMsgBoxResult
    ActiveWindow.SelectedSheets.PrintPreview
    Resp = MsgBox("Continuar com a impressão?", vbYesNo)
    If Resp = vbNo Then
   End
   End If
       
End Sub
 
Postado : 25/08/2017 7:05 am
Forum Jump:
  Tópico Anterior
Próximo Tópico