BackEnd Printing in lotusscript 1

[domino1352]

is it possible if so how..

 

[domino1352]

ended up doing the following Still need UI but it updates a flag for printing...

Sub Initialize
Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Dim session As New NotesSession
Dim uiview As NotesUIView
Set uiview = workspace.Currentview
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Print "Marking " + Cstr(collection.Count) + " Documents"
For i = 1 To collection.Count
Set doc = collection.GetNthDocument(i)
doc.printedbeta = "Printed"
Call doc.Save(True,False)
Next
Print "Printing " + Cstr(collection.Count) + " Documents"
Call uiview.Print()
end sub