Excel VBA - Impressao

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba impressao autonumeracao paginas Excel planilha vba impressao autonumeracao paginas

    popular!
    Adicionado em: 20/05/2011
    Modificado em: 20/05/2011
    Tamanho: Vazio
    Downloads: 1526

    Saberexcel - o site de quem precisa Aprender Macros MS Excel VBA

    E
    sse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), mostra dados em uma determinada impressão, personalizando-a com os cabeçalhos e rodapés, nome da folha de planilha, dia da edição da planilha, cabeçalho a direita e esquerda, e também rodapé , como número da impressão de cada página.

    Sub Rodapé_Personalizado()
    With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = "Editado dia: &D"
    .CenterFooter = "Pg: &P / &N"
    .RightFooter = "Origem : &F - &A"
    End With
    End Sub

    Esse macro auxilia no teste, mostrano a impressão
    Sub VisualizaImpressão()
    ActiveSheet.PrintPreview
    End Sub


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Excel planilha vba usf checkbox imprimir areas planilha Excel planilha vba usf checkbox imprimir areas planilha

    popular!
    Adicionado em: 22/03/2011
    Modificado em: 22/03/2011
    Tamanho: Vazio
    Downloads: 1271

    Saberexcel - O Site de quem precisa Aprender Macros MS Excel VBA

    Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), com três checkboxes mostram e ou ocultam, se selecionado ou não,
    mostram e ou ocultam botões (commandbutton) para impressão de determinadas área nas Folhas de Planilha.
    Espero que o exemplo lhe seja útil, Fique com Deus, Expedito Marcondes

    Private Sub CheckBox1_Click()
    [A1].Select
    If CheckBox1.Value = VRAI Then
    cmbDOC1.Visible = False
    Else
    cmbDOC1.Visible = True
    End If
    End Sub
    '-
    Private Sub CheckBox2_Click()
    [A2].Select
    If CheckBox2.Value = VRAI Then
    cmbDOC2.Visible = False
    Else
    cmbDOC2.Visible = True
    End If
    End Sub
    '-
    Private Sub CheckBox3_Click()
    [A3].Select
    If CheckBox3.Value = VRAI Then
    cmbDOC3.Visible = False
    Else
    cmbDOC3.Visible = True
    End If
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




    Baixe o exemplo de planilha contendo os procedimentos acima





    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Excel VBA imprimir userform pdf salva print screen Excel VBA imprimir userform pdf salva print screen

    popular!
    Adicionado em: 03/05/2013
    Modificado em: 03/05/2013
    Tamanho: Vazio
    Downloads: 2268

    Escola Saberexcel VBA - Treinamentos com Macros, Fórmulas e Funções

    Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application) faz uma PrintScreen do Objeto Userform,
    Abrindo um novo Livro(Pasta) do Excel. e Também abre uma lista das impressoras para escolha do item Imprimir pdf
    observe que neste caso voce precisa de um programa tio (PDF Creator) para impressao deste objeto.
    Fiquem com Deus, Expedito Marcondes.

    Private Sub CommandButton2_Click()
    With frmIMPRIMIR_PDF
    .Zoom = 90
    End With

    frmIMPRIMIR_PDF.PrintForm
    With frmIMPRIMIR_PDF
    .Zoom = 100
    End With
    End Sub

    Private Sub CommandButton31_Click()
    Dim P As Byte
    P = MsgBox(Range("Saber1!A33"), vbYesNo + vbDefaultButton1, Range("Saber1!A34"))
    If P = vbNo Then Exit Sub
    Application.Dialogs(xlDialogPrinterSetup).Show

    With frmIMPRIMIR_PDF
    .Zoom = 90
    End With
    frmIMPRIMIR_PDF.PrintForm

    With frmIMPRIMIR_PDF
    .Zoom = 100
    End With
    Unload frmIMPRIMIR_PDF
    End Sub

    Private Sub CommandButton32_Click()
    Sheets("Saber1").Select
    Application.SendKeys "(%{1068})"
    DoEvents
    Workbooks.Add
    ActiveSheet.Name = "Saberexcel_Salvando_formulario"
    Worksheets("Saberexcel_Salvando_formulario").Activate
    Range("A1").Select
    Range("G6").Value = "FOI CRIADO UM NOVA PASTA WKB PARA SALVAR O PRINT" ' uma mensagem na nova plan
    ActiveSheet.Paste
    Unload Me
    'Userform.hide ' caso queira fechar o userform
    Dim CmdB As CommandBar

    For Each CmdB In Application.CommandBars
    CmdB.Enabled = True
    Next CmdB

    With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
    End With

    With ActiveWindow
    .DisplayHeadings = True
    End With
    End Sub


    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




    Baixe o exemplo de planilha contendo os macros acima.


    vba impressao areas separadas instrucao select case vba impressao areas separadas instrucao select case

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 1200

    Essas macros do Aplicativo Microsoft Excel VBA, com auxílio de uma caixa de combinação (Combobox) imprimem determinadas áreas da planilha, observem que usei a Instrução Select Case para 'chamar' (referenciar) aos macros específicos. Você poderá baixar o exemplo de planilha no final da página.

    Sub Imprimir_determinadas_areas()
    Dim MAreas As Variant

    MAreas = Sheets("Imprimir").Range("H1")
    If Not IsNumeric(MAreas) Then
    Exit Sub
    Else
    Select Case MAreas
    Case 1
    Call Imprimir_Area_I
    Case 2
    Call Imprimir_Area_II
    Case 3
    Call Imprimir_Area_III
    Case 4
    Call Imprimir_Area_IV
    Case 5
    Call Imprimir_Area_V
    Case 6
    Call Imprimir_Area_VI
    Case 7
    Call Abrir_cxa_dialogo
    End Select
    End If
    End Sub

    Sub Imprimir_Area_I()
    On Error Resume Next ' no caso de cancelamento da macro
    Sheets("Imprimir").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$A$20"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End Sub

    Sub Imprimir_Area_II()
    On Error Resume Next ' no caso de cancelamento da macro
    Sheets("Imprimir").Select
    ActiveSheet.PageSetup.PrintArea = "$B$1:$B$20"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End Sub

    Sub Imprimir_Area_III()
    On Error Resume Next ' no caso de cancelamento da macro
    Sheets("Imprimir").Select
    ActiveSheet.PageSetup.PrintArea = "$C$1:$C$20"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End Sub

    Sub Imprimir_Area_IV()
    On Error Resume Next ' no caso de cancelamento da macro
    Sheets("Imprimir").Select
    ActiveSheet.PageSetup.PrintArea = "$D$1:$D$20"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End Sub

    Sub Imprimir_Area_V()
    On Error Resume Next ' no caso de cancelamento da macro
    Sheets("Imprimir").Select
    ActiveSheet.PageSetup.PrintArea = "$E$1:$E$20"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End Sub

    Sub Imprimir_Area_VI()
    On Error Resume Next ' no caso de cancelamento da macro
    Sheets("Imprimir").Select
    ActiveSheet.PageSetup.PrintArea = "$F$1:$F$20"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End Sub

    Sub Abrir_cxa_dialogo()
    Application.Dialogs(xlDialogPrint).Show
    End Sub




    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel






    vba impressao botao personalizado para impressao barra ferramenta vba impressao botao personalizado para impressao barra ferramenta

    popular!
    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



    Apprenda Microsoft Excel VBA --(-(SaberExcel )-)---


    Página 1 de 3

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    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


    Pesquisa Google SaberExcel

    Publicidade Google

    <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>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    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