Base 印刷スタイル 用紙 縦横変更ができない

データベース (Base) について
返信する
Kankun
記事: 22
登録日時: 7月 13, 2012, 3:06 pm

Base 印刷スタイル 用紙 縦横変更ができない

投稿記事 by Kankun »

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

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

バグだねきっと 僕が悪いんじゃないよね トホホ
 
OpenOffice.org 4.1.5
Win 7 10
返信する

“Base”に戻る