create a new page, using OOobbs3/95 as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板3
OOo 掲示板2
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
** [[OOobbs3/95]] [#w32f9885]
-''サマリ'': マクロでpdfファイルにエクスポートしたいの...
-''環境'': Calc
-''状態'': 解決
-''投稿者'': [[クロッピ]]
-''投稿日'': 2012-06-30 (土) 11:21:51
*** 質問 [#ue59942f]
pdfファイルのエクスポート敷居が高くてでわかりません。...
Sub PdfExport
Dim oDoc, oSheet, oCellA, oCellS, sURL, oStoreCell As ob...
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)'MENU
oCell = oSheet.getCellRangeByName("Q26")'印刷頁数
oCellA = oSheet.getCellRangeByName("Q27")'ファイル保存先
oCellS = osheet.getCellRangeByName("S26")'ファイル名
sURL = oCellA.string & oCellS.String
oStoreCell = oSheet.getCellRangeByPosition(0,0,13,45)
Dim aArg(8) As New com.sun.star.beans.PropertyValue
aArg(0).Name = "RestrictPermissions"
aArg(0).Value = True
aArg(1).Name = "PermissionPassword"
aArg(1).Value = "pass"
aArg(2).Name = "Changes"
aArg(2).Value = 0
aArg(3).Name = "EncryptFile"
aArg(3).Value = True
aArg(4).Name = "DocumentOpenPassword"
aArg(4).Value = "pass"
aArg(5).Name = "EnableCopyingOfContent"
aArg(5).Value = False
aArg(6).Name = "Printing"
aArg(6).Value = 0
aArg(7).Name = "EnableTextAccessForAccessibilityTools"
aArg(7).Value = False
aArg(8).Name = "Selection"
aArg(8).Value = ThisComponent.getCurrentController().ge...
Dim aArgs(1) As New com.sun.star.beans.PropertyValue
aArgs(0).Name = "FilterName"
aArgs(0).Value = "calc_pdf_Export"
aArgs(1).Name = "FilterData"
aArgs(1).Value = aArg
oDoc.storeToURL(sURL,aArgs)
End Sub
*** 回答 [#mc58bc53]
- Calc のようですが、フィルタ名が Writer 用になっています...
- はにゃさんいつもありがとうございます。calcに変更しまし...
- aArgs(1).Value に空の配列を渡してもエラーになるのであれ...
#comment
*** 感想,コメント,メモ [#q2a8b137]
- はにゃさんいつもありがとうございます。只今無事に解決い...
#comment
End:
** [[OOobbs3/95]] [#w32f9885]
-''サマリ'': マクロでpdfファイルにエクスポートしたいの...
-''環境'': Calc
-''状態'': 解決
-''投稿者'': [[クロッピ]]
-''投稿日'': 2012-06-30 (土) 11:21:51
*** 質問 [#ue59942f]
pdfファイルのエクスポート敷居が高くてでわかりません。...
Sub PdfExport
Dim oDoc, oSheet, oCellA, oCellS, sURL, oStoreCell As ob...
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)'MENU
oCell = oSheet.getCellRangeByName("Q26")'印刷頁数
oCellA = oSheet.getCellRangeByName("Q27")'ファイル保存先
oCellS = osheet.getCellRangeByName("S26")'ファイル名
sURL = oCellA.string & oCellS.String
oStoreCell = oSheet.getCellRangeByPosition(0,0,13,45)
Dim aArg(8) As New com.sun.star.beans.PropertyValue
aArg(0).Name = "RestrictPermissions"
aArg(0).Value = True
aArg(1).Name = "PermissionPassword"
aArg(1).Value = "pass"
aArg(2).Name = "Changes"
aArg(2).Value = 0
aArg(3).Name = "EncryptFile"
aArg(3).Value = True
aArg(4).Name = "DocumentOpenPassword"
aArg(4).Value = "pass"
aArg(5).Name = "EnableCopyingOfContent"
aArg(5).Value = False
aArg(6).Name = "Printing"
aArg(6).Value = 0
aArg(7).Name = "EnableTextAccessForAccessibilityTools"
aArg(7).Value = False
aArg(8).Name = "Selection"
aArg(8).Value = ThisComponent.getCurrentController().ge...
Dim aArgs(1) As New com.sun.star.beans.PropertyValue
aArgs(0).Name = "FilterName"
aArgs(0).Value = "calc_pdf_Export"
aArgs(1).Name = "FilterData"
aArgs(1).Value = aArg
oDoc.storeToURL(sURL,aArgs)
End Sub
*** 回答 [#mc58bc53]
- Calc のようですが、フィルタ名が Writer 用になっています...
- はにゃさんいつもありがとうございます。calcに変更しまし...
- aArgs(1).Value に空の配列を渡してもエラーになるのであれ...
#comment
*** 感想,コメント,メモ [#q2a8b137]
- はにゃさんいつもありがとうございます。只今無事に解決い...
#comment
Page: