Download
Relação .doc:   15.000  Macros, Funções e  Fórmu
las

Dicas  Excel Macros VBA

Configurar a impressora para imprimir orientação retrato e paisagem
Pergunta:
Gostaria de saber se é possível configurar a impressora através de uma macro, que quando os dados atingissem a posição horizontal, configura a orientação automaticamente para Paisagem., é Possível? - e se é possível inserir  um botão personalizado na barra de ferramenta indexado à macro? '

 

Resposta:
Sim e possível
Sub Definir_Botões_Personalizados()
Dim MonBouton As CommandBarButton
Set MonBouton = CommandBars("standard").Controls.Add(msoControlButton)
With MonBouton
.FaceId = 4 'definit l'icone
.TooltipText = "Imprimir a seleçao" 'descrição da função
.OnAction = "Imprimir_Selecao" 'macro a executar
End With
End Sub

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

no teu caso, aqui seria bom lançar uma macro que selecione a área corrente, para que seja selecionado automaticamente, através de um range dinâmico