create a new page, using OOobbs2/142 as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
** [[OOobbs2/142]] [#p7ca73d1]
-''サマリ'': 印刷プレビューの判定
-''環境'': Writer
-''状態'': 解決
-''投稿者'': [[ジョジョ]]
-''投稿日'': 2008-09-18 (木) 10:39:01
*** 質問 [#a6974f42]
たとえばWriterで、現在のViewが通常表示か印刷プレビューか...
*** 回答 [#u909b1eb]
- プロパティひとつで印刷プレビューかどうかを判断できるも...
#code(ob){{
Sub test_a
msgbox IsPrintPreview( ThisComponent )
End Sub
Function IsPrintPreview( oDoc ) As Boolean
Dim bPreview As Boolean
sViewInterface = ""
oModMgr = CreateUnoService( _
"com.sun.star.frame.ModuleManager")
sModule = oModMgr.identify(oDoc)
Select Case sModule
Case "com.sun.star.text.TextDocument"
sViewInterface = "com.sun.star.view.XViewSettingsSupp...
Case "com.sun.star.sheet.SpreadsheetDocument"
sViewInterface = "com.sun.star.sheet.XSpreadsheetView"
Case Else
sViewInterface = ""
End Select
If sViewInterface <> "" Then
oController = oDoc.getCurrentController()
bPreview = NOT HasUnoInterfaces(oController, sViewInt...
End If
IsPrintPreview = bPreview
End Function
}}
calc ではそれらしいインターフェースがありますが、writer ...
-- はにゃ? &new{2008-09-18 (木) 14:23:49};
- 判定することができました。ありがとうございました。 -- ...
#comment
*** 感想，コメント，メモ [#p8cb5e58]
#comment
End:
** [[OOobbs2/142]] [#p7ca73d1]
-''サマリ'': 印刷プレビューの判定
-''環境'': Writer
-''状態'': 解決
-''投稿者'': [[ジョジョ]]
-''投稿日'': 2008-09-18 (木) 10:39:01
*** 質問 [#a6974f42]
たとえばWriterで、現在のViewが通常表示か印刷プレビューか...
*** 回答 [#u909b1eb]
- プロパティひとつで印刷プレビューかどうかを判断できるも...
#code(ob){{
Sub test_a
msgbox IsPrintPreview( ThisComponent )
End Sub
Function IsPrintPreview( oDoc ) As Boolean
Dim bPreview As Boolean
sViewInterface = ""
oModMgr = CreateUnoService( _
"com.sun.star.frame.ModuleManager")
sModule = oModMgr.identify(oDoc)
Select Case sModule
Case "com.sun.star.text.TextDocument"
sViewInterface = "com.sun.star.view.XViewSettingsSupp...
Case "com.sun.star.sheet.SpreadsheetDocument"
sViewInterface = "com.sun.star.sheet.XSpreadsheetView"
Case Else
sViewInterface = ""
End Select
If sViewInterface <> "" Then
oController = oDoc.getCurrentController()
bPreview = NOT HasUnoInterfaces(oController, sViewInt...
End If
IsPrintPreview = bPreview
End Function
}}
calc ではそれらしいインターフェースがありますが、writer ...
-- はにゃ? &new{2008-09-18 (木) 14:23:49};
- 判定することができました。ありがとうございました。 -- ...
#comment
*** 感想，コメント，メモ [#p8cb5e58]
#comment
Page:
