Trying to find pdf file by a combo box selection

[Darren Smith]

Need to find a PDF file in Folders then print it my attempt is below
The combo box loads fine but not sure I have the code right to find and print the Pdf file

Sub FillDrNos()

Dim qry As String
    
    qry = "SELECT * FROM DrNos"
    
    Dim rs As Object: Set rs = OpenConAndGetRS(qry)
    If Not (rs.BOF Or rs.EOF) Then Me.Print_DrNos.Column = rs.GetRows

    rs.Close: Set rs = Nothing
End Sub
Private Sub Print_DrNos_Click()

Dim Filename As Variant
Dim i As Integer

Filename = Dir("\\TGS-SRV01\Share\Office\DRAWINGS\CAD Drawings\*.Pdf*")

Do While Filename <> ""
Filename = Print_DrNos & Dir
Filename.Print
Loop

End With

End Sub