Adicionado em: | 22/11/2010 |
Modificado em: | 22/11/2010 |
Tamanho: | Vazio |
Downloads: | 1695 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, configura minha impressão rodapé e cabeçalho
selecionando uma determinada área para impresssão, inserindo dados importantes como datas,
cabeçalhos personalizados, rodapés, e escolhendo o estilo de página, isso tudo através de
macros.
Sub Organizando_personalizacao_impressao()
Dim BotaoLinha As Integer, ImpData, CopiaW, LRodape, MontaRodape
Dim vPaginas As Integer, vUltimaColuna
vUltimaColuna = Application.CountA(ActiveSheet.Range("1:1"))
BotaoLinha = Application.CountA(ActiveSheet.Range("A:A"))
'observe nesta condição, se os dados for maior que coluna(6) imprime retrato, senão, paisagem
If vUltimaColuna >= 6 Then
vPaginas = 1 '1=xlPortrait (retrato)
Else
vPaginas = 2 '2=xlLandscape (paisagem)
End If
'============= personalize a impressao de suas páginas cabeçalhos e rodapés ==========
MontaRodape = "&8" & Chr(34) & "Excel VBA" & Chr(34) & _
" Reservado área de código dos Alunos SKY-XL-EVES®," & Chr(10) _
& "Fone # 1-800-XL-EVES®" & Chr(10) & "Sorria, você esta em questão!!!"
ImpData = Application.Text(Now(), "dd/mm/yyyy HH:mm:ss")
CopiaW = Chr(169) & Year(Now())
LRodape = "&8" & "*=Saberexcel" & Chr(10) & CopiaW & _
" Confidendencial Propridades dos Alunos Saberexcel"
Application.StatusBar = "Acertando um sistema de página"
ActiveSheet.Range(Cells(2, 1), Cells(BotaoLinha, vUltimaColuna)).Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Bold""ABCDEFG Agenda Telefonica" _
& Chr(10) & SpecialMsg
.RightHeader = ImpData
.LeftFooter = LRodape
.CenterFooter = "Pagina &P of &N"
.RightFooter = MontaRodape
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintNotes = False
.CenterHorizontally = True
.CenterVertically = False
.Orientation = vPaginas 'Landscape or Portrait(Paisagem e retrato)
.Draft = False
' .PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1 'força uma largura de página
.FitToPagesTall = False 'Retorna ou define a altura, em número de páginas, pela qual a planilha será dimensionada quando impressa. Só se aplica a 'planilhas.
End With
ActiveWorkbook.Save
Application.StatusBar =""
[H1].Select 'saida de macro
End Sub
Aprenda Microsoft Excel VBA (Visual Basic Application) ---((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: | 1123 |
Saberexcel - o site das macros
Esta macro do aplicativo Microsoft Excel VBA, imprime e salva determinado documento com o valor desejado
da célula (E4). Resultado do nome arquivo salvo...: veja no exemplo: " Salva como:" (Meus Documentos 21-ago-2010-19 30 48)
Sub Imprime_Arquivo()
vCelula = Range("E4") ' na célula(E4) voce atribui (=Agora() )
Range("12:12").Select
Selection.RowHeight = 0
ThisWorkbook.SaveAs "C:\Meus documentos\" & vCelula & ".xls"
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
MsgBox "A sua folha imprimida foi enviada, por favor, busque-a na impressora padrão", vbInformation
Application.OnTime Now() + TimeValue("00:00:01"), "AutoClose"
End Sub
Sub Encaminhando_Planilha()
On Error GoTo SaberErro
Planilha_Numero = InputBox("Entre com numero da planilha , Entre 0 se voce estiver iniciando", "TOTAL PLANILHAS CERTAS HOJE", Range("F2"))
Select Case Planilha_Numero
Case Else
Range("F2") = Planilha_Numero + 1
End Select
Exit Sub
SaberErro:
MsgBox "Entre com o número da Planilha válido!!", , "ERROR - SABEREXCEL"
Call Encaminhando_Planilha
End Sub
Sub AutoClose()
ThisWorkbook.Close SaveChanges:=False
End Sub
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: | 1373 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsot Excel VBA(Visual Basic Application), imprime o Userform da tela ativa no Aplicativo Word e também envia para impressora para impressão.
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub CommandButton2_Click()
Dim Wrd As Object, WrdDoc As Object, Resposta As String
Resposta = MsgBox("Deseja imprimir o userform ativo no Word e Impressora?", _
vbYesNo + vbInformation, "Saberexcel - o site das macros ")
If Resposta = 6 Then '6 = sim
'Captura a tela na forma ativa
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Set Wrd = CreateObject("Word.Application") 'criando uma sessão no Word
Wrd.Visible = True 'condição pendenete para acionar ou nao o word
On Error Resume Next
Set WrdDoc = Wrd.Documents.Add
WrdDoc.PageSetup.Orientation = wdOrientLandscape
Wrd.Selection.PasteSpecial 'colando o documento dentro do word
With WrdDoc.Shapes(1) 'redimensionamento e posicionamento do objeto a ser impresso
.Left = 40 'Borda à Esquerda
.Top = 40 'Borda ao topo(Alto)
.Width = 400
End With
WrdDoc.PrintOut 'Impressão,
'WrdDoc.Close False 'fecha o word sen salvar
'WrdDoc.Quit 'fecha o Aplicativo Word
Else
Exit Sub
End If
MsgBox ("Userform, imprimido com sucesso no Word e Impressora!!!"), vbInformation, "Saberexcel - site das macros"
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Aprenda sobre o Aplicativo Microsot Excel VBA(Visual Basic Application), com Saberexcel o site das macros
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