none
Comando do botão filtrar e imprimir! RRS feed

  • Pergunta

  • Bom Dia Galera!

          Eu sou novo no uso do VBA e estou muito afim de aprender cada vez mais e nada melhor do que pedir ajuda a grandes feras! Eu estou elaborando um BD para o controle de Analise de falhas. porem quando eu peço pra filtrar ele acusa uma falha que eu ainda não sei resolver, porem a minha necessidade é quando eu filtrar a Analise solicitada ele abrir em uma tela nova no formato em .PDF e com o botão "Imprimir" ao lado...já consegui fazer imprimir mas tem que ser muito manual e dentro da minha worksheet(Geral)...O comando que estou utilizando é:

    Sub gerar_PDF()
    On Error Resume Next
    Dim svInput As String
    Dim Data As String
    Dim var_MENSAGEM
    Dim Nome As String
    Dim UltimaLinha As String


        UltimaLinha = Cells(Rows.Count, "C").End(xlUp).Row ' última linha preenchida

        If UltimaLinha < 50 Then
            'MsgBox ("Todos os campos devem ser preenchidos")
            Exit Sub
        End If
           
                       
    End Sub


    Private Sub CmdBtnImprimir_Click()
    'ActiveSheet.PageSetup.PrintArea = "$G$1:$N$53"
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveSheet.PageSetup.PrintArea = Range("A$1:$C$" & UltimaLinha).Address
            Nome = InputBox("Digite o Titulo do relatório", "Gerar Relatório PDF")
            Data = VBA.Format(VBA.Date, "dd-mm-yyyy")
            svInput = "G:\G_I_Manutencao\MANUTEN\1.5 CONTROLLER\Classificação Confidencial\Análise de Falhas\" & Nome & ".pdf"


          ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                        Filename:=svInput, Quality:= _
                        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                        OpenAfterPublish:=True

    End Sub

    Agradeço muito quem poder me ajudar!!!

    sábado, 16 de fevereiro de 2013 08:49