Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 530 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, imprime negrito três primeiras linhas, observe que a macro afeta todas as folhas de planilhas, instrução For..Each Next
Sub Imprime_negrito_tres_primeiras_linhas()
Dim Wsh As Worksheet
For Each Wsh In Application.Worksheets
With Wsh.PageSetup
.PrintTitleRows = "$1:$3"
End With
Sheets(Wsh.Name).Rows("1:3").Font.Bold = True
Next Wsh
End Sub
Sub limpar_formatos()
[A1:L10].Font.Bold = False
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA -- com SaberExcel
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 692 |
Saberexcel - o Site das Macros
Retorna o nome da impressora ativa, usando Propriedade ActivePrinter
Macro do Aplicativo Microsoft Excel VBA, contém um exemplo da propriedade ActivePrinter, que exibe uma mensagem com o nome da impressora ativa
Sub exibir_nome_impressora()
MsgBox "O nome da impressora ativa é: " & _
Application.ActivePrinter, vbInformation, "Saberexcel - o site das macros"
End Sub
Aprenda Aplicativo Microsoft Excel VBA--((SaberExcel VBA))--
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 699 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA faz quatro cópias padrão da mesma página,
isto é, quatro impressão do mesmo documento
Sub Imprimir_quatro_vezes_mesma_pagina()
Dim vImpressao_par_padrao As String
vImpressao_par_padrao = Application.ActivePrinter
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=4, Collate:=True
'Application.ActivePrinter = "SabexEcel XL-1299-XHR Impress Virtual sur Ne12:"
'ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
' envia para impressora a variável vImpressao_par_padrao
Application.ActivePrinter = vImpressao_par_padrao
End Sub
Aprenda Sobre Aplicativo Microsoft Excel VBA -((SaberExcel ))--
Adicionado em: | 22/11/2010 |
Modificado em: | 22/11/2010 |
Tamanho: | Vazio |
Downloads: | 913 |
Saberexcel - o Site das Macros
Criar um botão para impressão personalizado que chama uma determinada macro na barra de ferramentas
Macros do Aplicativo Microsoft Excel VBA, insere um botão personalizada na barra de ferramenta da planilha'
que chama uma outra macro configurada para impressão de acordo com o tamanho do texto, paisagem ou retrato.
mas veja bem Lúcia, 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, que funciona bem.
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
Adicionado em: | 22/11/2010 |
Modificado em: | 22/11/2010 |
Tamanho: | Vazio |
Downloads: | 1051 |
Saberexcel - o site das macros
Impedindo a impressão se célula(A1) der diferença em determinada operação matemática.
Procedimento do Aplicativo Microsoft Excel VBA bloqueia a impressão quando der uma diferença em um determinado range
é só implementar o evento Workbook_BeforePrint com o procedimento abaixo, veja:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("A1").Value <> 0 Then
Msg = MsgBox("Valor de A1 é diferente de zero. Deseja realmente imprimir?", vbYesNo + vbCritical, "Saberexcel - site das macros")
If Msg = vbNo Then
Cancel = True
End If
End If
End Sub
'Código para o vba cancelar ou yes / no
'If Range("A1").Value <> 0 Then
' Msg = MsgBox("Valor de A1 é diferente de zero. Deseja realmente imprimir?", vbYesNo + vbCritical, "Saberexcel - site das macros")
' If Msg = vbNo Then
' Cancel = True
' End If
'End If
Aprenda Microsoft Excel VBA --(SaberExcel)--
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA