Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

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

Mensagem por milton »

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
Anexos
PDF folhas 1 e 2.rar
(37.95 KiB) Baixado 280 vezes
Editado pela última vez por milton em Sáb Set 15, 2018 4:35 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

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

Mensagem por Reinaldo »

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


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

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

Mensagem por milton »

Ambos estão na Plan1

Folha 1 é de A1 a F53

folha 2 é de H1 a Q53


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

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

Mensagem por Reinaldo »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

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

Mensagem por milton »

Boa tarde Reinaldo!

Perfeito, exatamente como eu precisava.
Muito obrigado!

Abraço


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder