EXCEL VBA: Loop está funcionando, mas não está atualizando antes de imprimir em um arquivo PDF
Bom Dia a todos!
Eu tenho um problema em relação ao meu código VBA. Eu realmente só quero criar um loop que imprime PDFs que são baseados no mesmo modelo de plano de fundo (que está na folha chamada AFFIDAVIT CREATOR) substituindo algumas 4 caixas (etiquetas e imagens) da folha INPUT.
Até agora, o loop está funcionando corretamente. Único problema: gera os arquivos PDF de acordo com o nome dado (variável r), mas atualiza a folha DEPOIS de exportar para PDF. Resultado: Arquivos múltiplos com nomes diferentes, mas todos eles exibem o mesmo :(
Alguma ideia?
Esse é o meu código:
Private Sub TryMe()
Dim r As Long
Dim strCap As String
Dim strCap2 As String
r = 4
Do Until Sheets("INPUT").Cells(r, 3).Value = ""
strCap = Sheets("INPUT").Cells(r, 3).Value
Sheets("AFFIDAVIT CREATOR").Label1.Caption = strCap
strCap2 = Sheets("INPUT").Cells(r, 5).Value
Sheets("AFFIDAVIT CREATOR").Label2.Caption = strCap2
If Sheets("INPUT").Cells(r, 4) = "OE" Then
Sheets("AFFIDAVIT CREATOR").Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\OE_Logo.jpg")
Else
Sheets("AFFIDAVIT CREATOR").Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\SF_Logo.jpg")
End If
If Sheets("INPUT").Cells(r, 6) = "OE" Then
Sheets("AFFIDAVIT CREATOR").Image2.Picture = LoadPicture(ActiveWorkbook.Path & "\OE_Logo.jpg")
Else
Sheets("AFFIDAVIT CREATOR").Image2.Picture = LoadPicture(ActiveWorkbook.Path & "\SF_Logo.jpg")
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, From:=1, To:=1, FileName:=ThisWorkbook.Path & "\" & Sheets("INPUT").Cells(r, 3) & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("AFFIDAVIT CREATOR").Calculate
r = r + 1
Loop
End Sub