Hi everyone,

I have recently created a userform which can create PDFs with various information in the textboxes, however it seems that the information in the form does not update the next time it is used. That is if for example, Textbox1 contains "A" and I create the pdf, on the PDF that is made Textbox1 is blank. The next time I use the form if Textbox1 contains "B" then on the generated PDF, Textbox1 contains "A", not "B". I can't seem to figure out why this happens. I know that Textbox1 definitely contains "B" before creating the PDF as I can see it there.

Any help would be greatly appreciated. I have included the code which creates the PDFs below.
Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False
    Dim pdfName As String
    Dim newWS As Worksheet
     
    keybd_event VK_MENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    keybd_event VK_MENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
     
    DoEvents
     
    Set newWS = Sheets.Add(, Sheets(Sheets.Count))
    newWS.PasteSpecial "Bitmap"
        With newWS.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    pdfName = ActiveWorkbook.Path & "\" & "Quote" & " " & Format(Now, "yyyy-mmm-dd-hh-mm-ss")
    newWS.ExportAsFixedFormat 0, pdfName
    Application.DisplayAlerts = False
    newWS.Delete
    Application.DisplayAlerts = True
    Unload Me
    Application.ScreenUpdating = True
    
End Sub