OpenOffice.org コミュニティーフォーラム

Baseでデータをカルクに吐き出して印刷する時　カルクの印刷用紙の縦横変更（スタイルの変更？）以前はうまくいってたけど　最近気が付いたら動かなくなった


Dim aPrintOption(0) As New com.sun.star.beans.PropertyValue
Dim aPrinter(1) As New com.sun.star.beans.PropertyValue

aPrinter(0).Name = "PaperOrientation"
aPrinter(0).Value = com.sun.star.view.PaperOrientation.LANDSCAPE
aPrinter(1).Name = "PaperFormat"
aPrinter(1).Value = com.sun.star.view.PaperFormat.A4

oDoc.setPrinter(aPrinter())

こんな感じでうまくいってたけど　今は　カルク側で用紙変更しながらやってます

ネットで拾ったプログラムだと

Dim oStyleFamilies As Object, oPageStyles As Object
Dim oPageStyle As Object

oSheet = oDoc.getSheets().getByIndex( 0 )
oStyleFamilies = oDoc.getStyleFamilies()
oPageStyles = oStyleFamilies.getByName( "PageStyles" )
If oPageStyles.hasByName( "Default" ) Then
oPageStyle = oPageStyles.getByName( "Default" )
With oPageStyle

　　　.IsLandscape = true '用紙の向き　横　true
.HeaderOn = false
.FooterOn = false

　　　.PageScale = 75　'縮尺 デフォルト75
　　　.TopMargin = 800 ' 上余白　1/100 mm 単位で設定
　　　.BottomMargin = 0　' 下余白
　　　.RightMargin = 250
End With
End If

カルク側の用紙の縦横の印は　横に変わるけど実際には変わらず縦にすると横で印刷する
縮尺とかは機能するみたい

バグだねきっと　僕が悪いんじゃないよね　トホホ