Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

PDF または XPS 形式で出力（ExportAsFixedFormat メソッド）

2015/10/23

ExportAsFixedFormat メソッド

ブックやシートの内容を PDF 形式または、XPS 形式で出力します。

【書式】

object.ExportAsFixedFormat ( type [, filename, quality, includedocproperties, ignoreprintareas, from, to, openafterpublish, fixedformatextclassptr ] )

引数・戻り値

object ・・・対象となる Workbook オブジェクト、Sheet オブジェクト、Chart オブジェクト、Range オブジェクト を指定します。
type ・・・出力するファイルの種類を表す XlFixedFormatType 列挙型 の定数またはその値を指定します（省略不可）。

定数値内容

xlTypePDF 0 PDF 形式のファイル（拡張子：.pdf）で出力

xlTypeXPS 1 XPS 形式のファイル（拡張子：.xps）で出力
filename ・・・保存するファイル名を指定します。パスを含めない場合は、カレントフォルダ内に保存されます（省略可）。
quality ・・・出力品質を表す XlFixedFormatQuality 列挙型 の定数またはその値を指定します（省略可）。

定数値内容

xlQualityStandard 0 標準品質（既定値）

xlQualityMinimum 1 最小限の品質
includedocproperties ・・・ドキュメントプロパティが含める場合は、True を指定、含めない場合は、False に指定します（省略可）。
ignoreprintareas ・・・印刷範囲を無視する場合は、True を指定、しない場合は、False（既定値）を指定します（省略可）。
from ・・・印刷を開始するページ番号を指定します。省略すると先頭のページから印刷します。
to ・・・印刷を終了するページを指定します。省略すると最後のページまで印刷します。
openafterpublish ・・・ True を指定すると、出力後に、対応するアプリケーションで開きます。False（既定値）を指定すると出力のみです（省略可）。
fixedformatextclassptr ・・・ FixedFormatExt クラスへのポインターです（省略可）。

出力先に同名のファイルが既に存在している場合は、上書きされるので注意が必要です。

ExportAsFixedFormat メソッド使用例

サンプルVBAソース

　
Sub Sample_ExportAsFixedFormat()

    Dim FName As String
    
    FName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Test.pdf"

    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, FileName:=FName, OpenAfterPublish:=True
    

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

　

Sub Sample_ExportAsFixedFormat()

Dim FName As String

FName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Test.pdf"

ActiveWorkbook.ExportAsFixedFormat _

Type:=xlTypePDF, FileName:=FName, OpenAfterPublish:=True

End Sub

　

実行結果

- ブック・シートの操作 Chart オブジェクト, ExportAsFixedFormat メソッド, Range オブジェクト, Sheet オブジェクト, VBA基本, Workbook オブジェクト, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ワークシートの数を数える（Count プロパティ）

Count プロパティ指定したWorksheets コレクションやSheets …

: ステータスバーにメッセージを表示（StatusBar プロパティ）

StatusBar プロパティ StatusBar プロパティで、ステータスバー …

: スクロール範囲を限定（ScrollArea プロパティ）

ScrollArea プロパティ ScrollArea プロパティにセル範囲を …

: シートが保護されているか確認（ProtectContents プロパティ）

ProtectContents プロパティワークシートが保護されているかどうか …

: ウィンドウ枠の固定（FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウ枠の固定と解除ウィンドウ枠を固定するには FreezePanes プ …

: 印刷設定（ヘッダー／フッター）書式コード・VBAコード

印刷設定（ヘッダー／フッター）書式コード・VBAコードヘッダーおよびフッター（ …

: 印刷の先頭のページ番号を設定（PageSetup.FirstPageNumber プロパティ）

PageSetup.FirstPageNumber プロパティ PageSetu …

: ウィンドウのタイトル（Window.Caption プロパティ）

ウィンドウのタイトル（Caption プロパティ） Windows.Captio …

: ブックのファイル形式を調べる（FileFormat プロパティ）

ブックのファイル形式を調べる（FileFormat プロパティ）指定したブック …

: 印刷する用紙の向きを設定（PageSetup.Orientation プロパティ）

PageSetup.Orientation プロパティ PageSetup.Or …

PREV: 印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）
NEXT: カレントフォルダ（CurDir 関数、ChDir ステートメント、ChDrive ステートメント）