Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[RESOLVIDO] Gerar arquivo pdf somente da folha 1 (um)
[RESOLVIDO] Gerar arquivo pdf somente da folha 1 (um)
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
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 288 vezes
Editado pela última vez por milton em Sáb Set 15, 2018 4:35 pm, em um total de 1 vez.
- Reinaldo
- 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)
O que vem a ser folha 1 e folha 2,onde começa/termina?
Re: Gerar arquivo pdf somente da folha 1 (um)
Ambos estão na Plan1
Folha 1 é de A1 a F53
folha 2 é de H1 a Q53
Folha 1 é de A1 a F53
folha 2 é de H1 a Q53
- Reinaldo
- 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)
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
Re: Gerar arquivo pdf somente da folha 1 (um)
Boa tarde Reinaldo!
Perfeito, exatamente como eu precisava.
Muito obrigado!
Abraço
Perfeito, exatamente como eu precisava.
Muito obrigado!
Abraço