Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[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: 108
Registrado em: Sex Jun 17, 2016 8:22 am

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

Mensagem por milton » 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
Anexos
PDF folhas 1 e 2.rar
(37.95 KiB) Baixado 12 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: 1013
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 » Qui Set 13, 2018 10:40 pm

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


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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

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

Mensagem por milton » Qui Set 13, 2018 10:56 pm

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: 1013
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 » 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


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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: 108
Registrado em: Sex Jun 17, 2016 8:22 am

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

Mensagem por milton » Sáb Set 15, 2018 4:34 pm

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