BOTÃO DE COMANDO EM VBA WORD

NILSINHOCHAGAS 16/06/2015 15:46:19
#447783
Pessoal, será que alguem sabe como colocar um botão de comando em VBA no Word 2013 para o comando imprimir? Criei um documento no word com esse botão para que quando for clicado de inicio a impressão dele mais não sei qual o codigo colocar.
TUNUSAT 18/06/2015 07:49:28
#447800
NILSINHOCHAGAS,

Por favor, veja este exemplo:
http://www.hardware.com.br/comunidade/vba-imprimir/1154471/
Sub Teste()
 ActiveSheet.PageSetup.PrintArea = [Ô]$G$1:$N$53[Ô]
 ActiveWindow.SelectedSheets.PrintOut Copies:=1
 End Sub


Uma forma de resolver TODOS seus problemas com VBA:
-------------------------------------------------------------------------------------
Ligue o gravador de macro;
- Selecione o que você quer imprimir;
- Mande imprimir;
- Desligue o gravador de macro.
Em seguida, vá na Guia de Desenvolvedor, insira o botão. Aí é só associar a macro ao botão.
-------------------------------------------------------------------------------------

veja também:

Excel planilha vba impressao botao personalizado barra ferramenta
http://www.microsoftexcel.com.br/index.php/excel-dicas-microsoft-excel-vba/111-excel-vba-impressao/196-excel-planilha-vba-impressao-botao-personalizado-para-impressao-barra-ferramenta.html
Sub Definir_botoes_personalizados()
Dim MeuBotao As CommandBarButton
Set MeuBotao = CommandBars([Ô]standard[Ô]).Controls.Add(msoControlButton)

With MeuBotao
.Caption = [Ô]Impressao_Saberexcel[Ô]
.Style = msoButtonIconAndCaption
.FaceId = 4 [ô]definir o icone impressora
.TooltipText = [Ô]Imprimir a seleçao SaberExcel[Ô] [ô]descrição da função
.OnAction = [Ô]Imprimir_Selecao[Ô] [ô]macro a executar
End With

End Sub


Essa macro será chamada pelo botão personalizado acima que será inserido na Barra de Ferramenta da planilha.
Sub Imprimir_Selecao()

With ActiveSheet.PageSetup
.PrintArea = Selection.Address [ô]define a zona de impressao
If Selection.Height > Selection.Width Then [ô]determina a orientação
.Orientation = xlPortrait
Else
.Orientation = xlLandscape
End If

.CenterHorizontally = True
.CenterVertically = True

End With
With ActiveSheet

.PrintOut [ô]chama a impressão
.PageSetup.PrintArea = False [ô] zona de impressão
.DisplayPageBreaks = False [ô]status da pagina

End With
End Sub


-------------------------------------------------------------------------------------
Como usar o Excel VBA para impressão
http://finslab.com/contabilidade-e-escrituracao/artigo-1074.html
-------------------------------------------------------------------------------------
Macro para comandar uma impressão.... Como fazer isso no Excel?
http://www.hardware.com.br/comunidade/macro-comandar/811555/
-------------------------------------------------------------------------------------

[][ô]s,
Tunusat.
Faça seu login para responder
Voltar