Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda com Código pr...
 
Notifications
Clear all

Ajuda com Código pra Imprimir

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
1,322 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Gente preciso de uma ajuda:
Tenho um código que imprime 30 folhas de um documento no excel, que é assim:

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=30, Copies:=1
End Sub

Mas eu preciso de um que eu decida quantas folhas imprimir, sendo que a quantidade de folhas que eu quero imprimir está na Plan meta gestor, na célula $AH$153.
como faço?

 
Postado : 18/03/2011 4:20 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

alex, fazendo uma adaptação nos códigos do site abaixo :
http://www.baboo.com.br/conteudo/modelo ... 56_z0.aspx

Podemos utilizar a seguinte rotina :

Sub ImprimeNumCopias()

    ncop = Range("$AH$153").Value
    
    If ncop = "" Or ncop = "0" Then
        test3 = MsgBox("Impressão cancelada.Informe o número de cópias a serem imprimidas")
        Exit Sub
    End If
    
    ActiveWindow.SelectedSheets.PrintOut Copies:=ncop

End Sub

Espero que seja isto.

[]s

 
Postado : 19/03/2011 10:48 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Fala Mauro, Obrigado de novo, funcionou perfeitamente!
Valew! ;)

 
Postado : 21/03/2011 7:08 am
Forum Jump:
  Tópico Anterior
Próximo Tópico