Exportação de PDF sumindo com colunas
Enviado: 11 Fev 2021 às 11:47
Olá pessoal, estou fazendo um código onde deve-se exportar um PDF do Laudo obtido na planilha.
Tudo está funcionando perfeitamente, porém o PDF está cortando uma coluna da minha planilha. Ela está inserida no intervalo (A1:J158), porém só está sendo mostrado até a coluna I.
Esse é o código utilizado:
Private Sub CommandButton104_Click()
Dim caixaSalvar As Office.FileDialog
Dim caminhoSalvar As String, nomeArquivo As String
'Abre caixa de dialogo para selecionar local/diretorio onde será salvo arquivo
Set caixaSalvar = Application.FileDialog(msoFileDialogFolderPicker)
With caixaSalvar
.AllowMultiSelect = False
.Title = "Selecione o local para salvar o Laudo"
.Show
End With
'verifica se foi selecionado um diretorio/local, se não foi sai da rotina
If caixaSalvar.SelectedItems.Count = 0 Then
MsgBox "Operação cancelada!", vbExclamation, "Salvar PDF"
Exit Sub
Else
'inclui o caminho selecionado em uma variavel
caminhoSalvar = caixaSalvar.SelectedItems(1) & "\"
'Efetua um loop nas abas da planilha para salvar pdf uma a uma
Dim nomedoarquivo As String
Dim Data As String
Dim UltimaLinha As Long
Sheets("Laudo").Select
Data = VBA.Format(VBA.Date, "dd.mm.yyyy")
Cells(156, "B") = Data
UltimaLinha = Cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:K" & UltimaLinha).Address
nomedoarquivo = ThisWorkbook.Path & Application.PathSeparator & "Formulário de Liberação CARTONADO" & " - " & Data & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomedoarquivo, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
MsgBox "Operação realizada com sucesso!", vbInformation, "Salvar PDF"
End Sub
Se alguem puder me ajudar em como exportar todo o conteúdo, ficarei imensamente grata!
Tudo está funcionando perfeitamente, porém o PDF está cortando uma coluna da minha planilha. Ela está inserida no intervalo (A1:J158), porém só está sendo mostrado até a coluna I.
Esse é o código utilizado:
Private Sub CommandButton104_Click()
Dim caixaSalvar As Office.FileDialog
Dim caminhoSalvar As String, nomeArquivo As String
'Abre caixa de dialogo para selecionar local/diretorio onde será salvo arquivo
Set caixaSalvar = Application.FileDialog(msoFileDialogFolderPicker)
With caixaSalvar
.AllowMultiSelect = False
.Title = "Selecione o local para salvar o Laudo"
.Show
End With
'verifica se foi selecionado um diretorio/local, se não foi sai da rotina
If caixaSalvar.SelectedItems.Count = 0 Then
MsgBox "Operação cancelada!", vbExclamation, "Salvar PDF"
Exit Sub
Else
'inclui o caminho selecionado em uma variavel
caminhoSalvar = caixaSalvar.SelectedItems(1) & "\"
'Efetua um loop nas abas da planilha para salvar pdf uma a uma
Dim nomedoarquivo As String
Dim Data As String
Dim UltimaLinha As Long
Sheets("Laudo").Select
Data = VBA.Format(VBA.Date, "dd.mm.yyyy")
Cells(156, "B") = Data
UltimaLinha = Cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:K" & UltimaLinha).Address
nomedoarquivo = ThisWorkbook.Path & Application.PathSeparator & "Formulário de Liberação CARTONADO" & " - " & Data & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nomedoarquivo, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
MsgBox "Operação realizada com sucesso!", vbInformation, "Salvar PDF"
End Sub
Se alguem puder me ajudar em como exportar todo o conteúdo, ficarei imensamente grata!