I try to print but the Print-Method creates an error (438: Object doesn't support this property or method)

My VB-Code:

  Dim lngRet As Long
  Dim objPDFPrint As PDFREADEROCXLib.IPDFReaderPrint
 
  lngRet = Me.PDFReaderOCX1.GetPrintDispatch(objPDFPrint)
  If lngRet <> 0 Then
   
    MsgBox "Das Dokument kann nicht gedruckt werden.", vbOKOnly, "PDF Dokument drucken"
   
  Else
   
    objPDFPrint.showPrintDialog = True
    objPDFPrint.Print
    
  End If
 
  Set objPDFPrint = Nothing