To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=63866
------- Additional comments from [EMAIL PROTECTED] Tue Apr 4 01:13:35 -0700
2006 -------
It seems that the "Collate" property is the problem.
Here is the code that I tested:
'*********************************
Public Sub main()
Dim oSM As Object
Dim oDesk As Object
Dim oDoc As Object
Dim filename As String
Dim arg() As Object
Dim arg1(0) As Object
Dim arg2(0) As Object
'this is a 2 pages file
'******SET YOUR OWN FILE NAME******
filename = "C:\Projet_Impression_OO\test_2pages.RTF"
'************************************
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
'load the file in an empty OO frame
Set oDoc = oDesk.loadComponentFromURL("file:///" & Replace
(filename, "\", "/"), "_blank", 0, arg())
'set the printer name
'****SET YOUR PRINTER NAME*****************
Set arg1(0) = MakePropertyValue("Name", "Canon CLC-iR C3220-C1 PCL5c")
'******************************************
oDoc.Printer = arg1()
'I want to print two pages of each pages of the file: so 4 pages
Set arg2(0) = MakePropertyValue("CopyCount", 2)
'sort the pages
Set arg2(1) = MakePropertyValue("Collate", True)
'print the doc
CallByName oDoc, "print", VbMethod, arg2()
End Sub
Public Function MakePropertyValue(cName, uValue) As Object
Dim oPropertyValue As Object
Dim oSM2 As Object
Set oSM2 = CreateObject("com.sun.star.ServiceManager")
Set oPropertyValue = oSM2.Bridge_GetStruct
("com.sun.star.beans.PropertyValue")
oPropertyValue.Name = cName
oPropertyValue.Value = uValue
Set MakePropertyValue = oPropertyValue
End Function
'***************************************************
'END PROGRAM
I tried to print without the Collate property and it seems to work fine
without this property: I got 4 pages.
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
