Gerando PDF por VBA

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

Acho que é na configuração da impressão em pdf. Precisa colocar pra ajustar em uma página ou ajustar colunas.

1 Curtida

Consegue mandar o arquivo por aqui? Acho q fica mais facil de analisar oq você quer

1 Curtida

Muito obrigada Caroline. Acabei encontrando meu erro, estava colocando a data em um formato errado.