OpenOffice 3.4.1
Code: Select all
Sub Main
Dim Doc As Object
Dim Sheet As Object
Doc = ThisComponent
Dim PaperSize as New com.sun.star.awt.Size
Dim printerOptions(1) As New com.sun.star.beans.PropertyValue
printerOptions(0).Name = "PaperFormat"
printerOptions(0).Value = com.sun.star.view.PaperFormat.USER
PaperSize.Width = 21000
PaperSize.Height = 14850
printerOptions(1).Name = "PaperSize"
printerOptions(1).Value = PaperSize
Doc.Printer = printerOptions()
End Sub