''' <summary>
''' Druckt das Notesdokument über die NotesOberfläche auf dem PDFCreator Drucker aus.
''' </summary>
''' <remarks></remarks>
Private Function _DruckeNotesDokument(ByVal _UNID as String) As Boolean
Try
'****************************************************
'Drucke Dokument
'****************************************************
Dim NotesUIWorkspaceType As Type = Type.GetTypeFromProgID("Notes.NotesUIWorkspace")
Dim workspace As Object
'Erstelle NotesObjekt
workspace = Activator.CreateInstance(NotesUIWorkspaceType)
'Öffne MailDatenbank
Dim arg() As String = {_UNID}
Dim uidb As Object = NotesUIWorkspaceType.InvokeMember("CurrentDatabase", System.Reflection.BindingFlags.GetProperty, Nothing, workspace, Nothing)
Dim db As Object = NotesUIWorkspaceType.InvokeMember("Database", System.Reflection.BindingFlags.GetProperty, Nothing, uidb, Nothing)
'Hole Dokument mit der UNID
Dim doc As Object = NotesUIWorkspaceType.InvokeMember("GetDocumentByUNID", System.Reflection.BindingFlags.InvokeMethod, Nothing, db, arg)
Dim dokIstSchonOffen As Boolean = NotesUIWorkspaceType.InvokeMember("ISUIDOCOPEN", System.Reflection.BindingFlags.GetProperty, Nothing, doc, Nothing)
'Öffne Dokument zum Editieren
Dim Arguments2() As Object = {False, doc, True, "", True, False}
Dim Resul As Object = NotesUIWorkspaceType.InvokeMember("Editdocument", System.Reflection.BindingFlags.InvokeMethod, Nothing, workspace, Arguments2)
System.Threading.Thread.Sleep(100)
'Drucke Dokument auf dem NotesToDMS Drucker
Dim arg3() As Object = {1, Nothing, Nothing, Nothing, "PDFCreator"}
NotesUIWorkspaceType.InvokeMember("PRINT", System.Reflection.BindingFlags.InvokeMethod, Nothing, Resul, arg3)
If dokIstSchonOffen = False Then
System.Threading.Thread.Sleep(100)
Dim arg4() As Object = {True}
NotesUIWorkspaceType.InvokeMember("Close", System.Reflection.BindingFlags.InvokeMethod, Nothing, Resul, arg4)
End If
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function Function _DruckeNotesDokument(ByVal _UNID As String) As Boolean
Dim workspace As Object
Dim db As Object
Dim doc As Object
Dim uidoc As Object
Dim ResultBoolean As Boolean
Try
workspace = CreateObject("Notes.NotesUIWorkspace")
db = workspace.currentdatabase.database
doc = db.getdocumentbyunid(_UNID)
If Not doc Is Nothing Then
uidoc = workspace.editdocument(False, doc, True, "", True, False)
If Not uidoc Is Nothing Then
For CounterLong As Long = 0 To 9
If uidoc.document.universalid = _UNID Then Exit For
System.Threading.Thread.Sleep(100)
Next
If uidoc.document.universalid = _UNID Then
uidoc.print(True, Nothing, Nothing, Nothing, "PDFCreator")
uidoc.close()
ResultBoolean = True
Else
MessageBox.Show("Konnte Dokument nicht öffnen!")
End If
End If
End If
Return ResultBoolean
Catch ex As Exception
MessageBox.Show(ex.Message)
Return False
End Try
End Function ''' <summary>
''' Druckt das Notesdokument über die NotesOberfläche auf dem PDFCreator Drucker aus.
''' </summary>
''' <remarks></remarks>
Private Function _DruckeNotesDokument() As Boolean
Try
'Prüfe ob Drucker überhaupt vorhanden ist
Dim Printer As New Printing.PrinterSettings()
Dim PrinterName As String
Dim PDFCreatorVorhanden As Boolean = False
For Each PrinterName In Printing.PrinterSettings.InstalledPrinters
Printer.PrinterName = PrinterName
If Printer.IsValid = True Then
If PrinterName.ToLower = "pdfcreator" Then
PDFCreatorVorhanden = True
Exit For
End If
End If
Next
If PDFCreatorVorhanden = False Then
Throw New Exception("Der Drucker PDFCreator existiert nicht!")
End If
'****************************************************
'Drucke Dokument von Notes aus
'****************************************************
Dim NotesUIWorkspaceType As Type = Type.GetTypeFromProgID("Notes.NotesUIWorkspace")
Dim workspace As Object
'Erstelle NotesObjekt
workspace = Activator.CreateInstance(NotesUIWorkspaceType)
'Öffne MailDatenbank
Dim db As Object = workspace.CurrentDatabase.Database
'Hole Dokument mit der UNID
Dim doc As Object = db.GetDocumentByUNID(_UNID)
' 'Prüfe ob Dokument schon offen ist
Dim dokIstSchonOffen As Boolean = doc.ISUIDOCOPEN
' 'Öffne Dokument zum Editieren
Dim Resul As Object = workspace.Editdocument(False, doc, True, "", True, False)
System.Threading.Thread.Sleep(1000)
'Drucke Dokument auf dem NotesToDMS Drucker
Resul.print(0, Nothing, Nothing, Nothing, "PDFCreator")
'Wenn Dok am Anfang nicht offen war, dann jetzt schliessen.
If dokIstSchonOffen = False Then
System.Threading.Thread.Sleep(1000)
Resul.close(True)
End If
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function