Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Botão Imprimir
 
Notifications
Clear all

Botão Imprimir

 
2024 - VBA & Macros
Post Recente por denisw 10 anos atrás
3 Posts
3 Usuários
0 Reactions
1,009 Visualizações
RSS
 Tiagosx
(@tiagosx)
Posts: 5
Active Member
Topic starter
 

Prezados, Bom dia!

Tenho um formulário para preenchimento de requisição interna e preciso criar um botão na planilha para que a pessoa termine de inserir seu dados, não precise de tudo aquilo que a gente já conhece, Arquivo imprimir ou Ctrl + P, ou seja, clicar neste botão e já imprimir automaticamente como se fosse uma impressão rápida e já sair na formatação que deixei.

Podem me ajudar?

Obrigado.

 
Postado : 12/08/2014 9:18 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Tiagosx,

Boa Tarde!

Associe o código abaixo a um botão.

Sub Imprimir()
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub
 
Postado : 12/08/2014 9:36 am
 denisw
(@denisw)
Posts: 64
Estimable Member
 

segue um q antes de imprimir coloca em ordem crescente e não imprime linhas em branco
Sub IMPRIMIRLSITA()

ActiveWorkbook.Worksheets("nome da planilha").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("nome da planilha").AutoFilter.Sort.SortFields.Add Key:= _
Range("C1:C1002"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("LISTAGEM").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

 
Postado : 22/08/2014 9:57 am
Forum Jump:
  Tópico Anterior
Próximo Tópico