This should help! just change the checkbox names.
If you want to check multiple check boxes then use "and" statements with the if's.
Private Sub convert_to_pdf_button_Click()
On Error GoTo Err_convert_to_pdf_button_Click
Dim stDocName As String
if me.Cardiololgycheckboxname.value = true then...