Private Sub Form_Load()
 
  File1.Pattern = "*.pdf"
  File1.Path = "Ordnerpfad"
 
End Sub
 
Private Sub Command1_Click()
 
  Dim Pfad$
 
  Pfad = File1.Path & "\" & File1.List(File1.ListIndex)
  MsgBox Pfad
  Call DruckePdf(Pfad)
 
End Sub

Gruss,

Zardoz