Olá, bom dia! Estou fazendo um relatório onde o usuário terá a opção de clicar em um botão para gerar um relatório automático em PDF. Porém, ao emitir o arquivo está sumindo com a coluna final do relatório. Não tenho ideia do que possa ser feito para não acontecer isso. Segue 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”)
DataProd = Cells(5, “J”)
Cells(156, “B”) = Data
UltimaLinha = Cells(Rows.Count, “A”).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range(“A1:J” & UltimaLinha).Address
nomedoarquivo = ThisWorkbook.Path & Application.PathSeparator & “Formulário de Liberação CARTONADO” & " - " & DataProd & ".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