setting borders & formatting after save as PDF

Hi Ali and welcome to the Forum

if you only want to see all the data and to have a simple border around the cells (in the pdf), you can just add the two lines in bold below (but I added two comments too for your guidance):

Private Sub CommandButton1_Click()
  ListBoxToPDF ListBox1, ThisWorkbook.Path & "\ListBoxToPDF.pdf"
  Unload Me
End Sub

Sub ListBoxToPDF(listbox As Object, pdf As String)
  With Workbooks.Add(xlWBATWorksheet).Worksheets(1)
    .Range("A1").Resize(listbox.ListCount, listbox.ColumnCount) = listbox.List
    ' autofit the columns
    .UsedRange.Columns.AutoFit
    ' draw simple borders around cells
    .UsedRange.Borders.LineStyle = xlContinuous

    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf _
      , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
      :=False, OpenAfterPublish:=False

    .Parent.Close False
  End With
End Sub

The attached revised file has those changes.

Note that the whole ListBox is exported to pdf if  you don't pick a "code" in the Userform.

Hope this fixes things for you. Kindly mark this Answer as Selected if so.