Hi.
I have some code that is almost working as I want it to work.
Sub Job_Card_to_PDF()
Dim FileDir As String
Dim PDF As String
JNo = Range("U18").Value & "; "
QNo = Range("U19").Value & "; "
ONo = Range("U20").Value & "; "
ESN = Range("AP9").Value & "; "
Fleet =...