Tomás Vásquez Fórum

Enviado: **Qui Set 13, 2018 9:31 pm**

Ola pessoal!
A Macro abaixo gera arquivo pdf das folhas 1 e 2 ao clicar em SIM, preciso de uma ajuda pra gerar apenas da folha 1 ao clicar em NÃO.
Alguém pode ajudar?
Segue a Plan anexo...

resposta = MsgBox("Gerar pdf das folhas 1 e 2", vbQuestion + vbYesNo, "Pergunta")
If resposta = vbYes Then

'***GERAR ARQUIVO PDF
Dim data As String

Worksheets("Plan1").Select
'Range("A1:Q53").Select 'essa função não tem efeito

data = VBA.Format(VBA.Date, "yyyymmdd") & "_" & Format(Time, "hhmmss")

'Local C:\PDF\
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\PDF\" & "\Orçamento" & "_" & ActiveSheet.Range("B9").Value & "_" & data & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

ElseIf resposta = vbNo Then

'Gera arquivo somente da folha 1

End If

Enviado: **Qui Set 13, 2018 10:40 pm**

O que vem a ser folha 1 e folha 2,onde começa/termina?

Enviado: **Qui Set 13, 2018 10:56 pm**

Ambos estão na Plan1

Folha 1 é de A1 a F53

folha 2 é de H1 a Q53

Enviado: **Sex Set 14, 2018 10:51 am**

Experimente a rotina conforme abaixo

Código: Selecionar todos

Private Sub BtnPDFteste_Click()
Dim Data As String
Dim Resposta
Resposta = MsgBox("Gerar pdf das folhas 1 e 2", vbQuestion + vbYesNo, "Pergunta")
'***GERAR ARQUIVO PDF
Data = VBA.Format(VBA.Date, "yyyymmdd") & "_" & Format(Time, "hhmmss")

If Resposta = vbYes Then
    'Gera arquivo folha 1 e 2
    With Worksheets("Plan1")
        .PageSetup.PrintArea = Range("$A$1:$Q$53").Address
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                "C:\Temp\" & "Orçamento" & "_" & ActiveSheet.Range("B9").Value & "_" & Data & ".pdf" _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                :=False, OpenAfterPublish:=True
    End With
ElseIf Resposta = vbNo Then
    'Gera arquivo somente da folha 1
    With Worksheets("Plan1")
        .PageSetup.PrintArea = Range("$A$1:$F$53").Address
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                "C:\Temp\" & "Orçamento" & "_" & ActiveSheet.Range("B9").Value & "_" & Data & ".pdf" _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                :=False, OpenAfterPublish:=True
    End With
End If
End Sub

Enviado: **Sáb Set 15, 2018 4:34 pm**

Boa tarde Reinaldo!

Perfeito, exatamente como eu precisava.
Muito obrigado!

Abraço

Tomás Vásquez Fórum

[RESOLVIDO] Gerar arquivo pdf somente da folha 1 (um)

[RESOLVIDO] Gerar arquivo pdf somente da folha 1 (um)

Re: Gerar arquivo pdf somente da folha 1 (um)

Re: Gerar arquivo pdf somente da folha 1 (um)

Re: Gerar arquivo pdf somente da folha 1 (um)

Re: Gerar arquivo pdf somente da folha 1 (um)