Private Sub Save_to_PDF_Click()
Dim myPath As String
Dim strBookmark As String
With Me
myPath = "Z:\(P) Maintenance\Hamilton Jet Planned Maintenance\Jobs\"
myPath = myPath & Format(.[Closed date], "dd_mm_yy")
myPath = myPath & "_" & StripInvalidChars(.[Effected area] & "_" & .[Asset] & "_" & .[Title]) & ".PDF"
strBookmark = .Bookmark
.Filter = "[[COLOR="Blue"]ID[/COLOR]] = " & .[[COLOR="blue"]ID[/COLOR]]
.FilterOn = True
DoCmd.OutputTo acOutputForm, .Name, acFormatPDF, myPath, False
.Filter = vbNullString
.FilterOn = False
.Bookmark = strBookmark
End With
End Sub