No.1ベストアンサー
- 回答日時:
サンプルです。
Option Explicit
'開発環境: VB6SP5 Acrobat4.0
'参照設定:Adobe Acrobat 4.0 Type Library
' 参照設定初回設定時は「Acrobat」と表示されています
' 一度チェックをつけ、もう一度参照設定ダイアログを開くと「Adobe Acrobat 4.0 Type Library」になっているはずです。
Sub TEST()
Dim acroApp As CAcroApp 'CAcroAppオブジェクト
Dim acroPDDoc As CAcroPDDoc 'CAcroPDDocオブジェクト
Dim acroExchAVDoc As CAcroAVDoc 'CAcroAVDocオブジェクト
Dim blnRtn As Boolean '戻り値
Dim lngAVDocNum As Long
'インスタンス生成
Set acroApp = CreateObject("AcroExch.APP")
Set acroPDDoc = CreateObject("AcroExch.PDDoc")
Set acroExchAVDoc = CreateObject("AcroExch.AVDoc")
'デバッグ用
acroApp.Show
'ファイルオープン
blnRtn = acroExchAVDoc.Open("c:\test.bmp", "")
If blnRtn Then
MsgBox "オープンエラー"
GoTo PGMEND:
End If
'変換処理中の待機処理
Do While lngAVDocNum = acroApp.GetNumAVDocs
DoEvents
Loop
'変換済みのアクティブPDFファイルオブジェクト取得
Set acroExchAVDoc = acroApp.GetActiveDoc()
Set acroPDDoc = acroExchAVDoc.GetPDDoc()
'PDFファイルとしてセーブ
blnRtn = acroPDDoc.Save(PDSaveFull Or PDSaveCollectGarbage Or PDSaveLinearized, "c:\test.pdf")
If Not blnRtn Then
MsgBox "セーブエラー"
GoTo PGMEND:
End If
PGMEND:
'閉じる
blnRtn = acroExchAVDoc.Close(False)
acroApp.Exit
'開放
Set acroExchAVDoc = Nothing
Set acroPDDoc = Nothing
Set acroApp = Nothing
End Sub
No.2
- 回答日時:
ソースが長いので簡単にやり方だけ書きます。
(1)レジストリ(HKEY_CURRENT_USER\SOFTWARE\Adobe\Acrobat PDFWriter\PDFFileName)に作成するPDFファイル名を書き込む
(2)ShellExecute(Me.hwnd, "Print", strPath, "", "", 0)で関連付けされたアプリで印刷する。
これで、PDFファイルが作成されるはず・・・。
もし、デフォルトプリンタをPDFにしていない場合、失敗します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- PDF PDFを自動添付したメールを送信してくれるツールを探しています。 2 2023/02/07 15:19
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- PDF AutoCAD図面をPDF fileに変換した際、画像情報やブロック名はわかるのでしょうか。 1 2022/06/03 09:42
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- PDF PDF印刷後に「変更を保存しますか?」と訊かれる 2 2023/04/28 17:35
- PDF PDFに精通した方に質問。JPEGファイル群を一つのPDFファイルにするときの容量変化について 6 2023/07/23 19:06
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VB6.0でExcel,PDF,Word出力方法
Visual Basic(VBA)
-
VB6上から印刷ダイアログを表示させずにPDFを作成したい
Visual Basic(VBA)
-
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
-
-
4
ActobatReader無しでPDFを表示
Visual Basic(VBA)
-
5
microsoft print to pdf 保存先
その他(コンピューター・テクノロジー)
-
6
Visual Basicから、プリンタの印刷設定を変更する方法。
Visual Basic(VBA)
-
7
クリスタルレポートからPDFを作るには?
Visual Basic(VBA)
-
8
Vbで通常使用するプリンターを変更するには
Visual Basic(VBA)
-
9
印刷ダイアログを表示させたくない
Visual Basic(VBA)
-
10
出力するプリンタを指定したい。
Visual Basic(VBA)
-
11
VBでPDFファイルを編集する
Visual Basic(VBA)
-
12
Visual Basic 6.0 コンボボックスのChangeイベントが発生しません
Visual Basic(VBA)
-
13
vb.netで画面のコントロールId名を変数で動的に制御し処理する方法
Visual Basic(VBA)
-
14
VBからプリンタに出力する時に印刷方向を縦から横に変更したいのですが・・・
Visual Basic(VBA)
-
15
Visual Basic 6.0のフォームの印刷方法
Visual Basic(VBA)
-
16
「指定されたキャストは有効ではありません。」とエラーが出てしまいます。
Microsoft ASP
-
17
[VB6] フォームを閉じる方法について
Visual Basic(VBA)
-
18
エクセルVBAでPDFを作成したい
Visual Basic(VBA)
-
19
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
20
VB.net 重複チェックがしたいです
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
VBAで既に開いている別アプリケ...
-
実行時エラー 3265「要求された...
-
VBAからPDFファイルにパスワー...
-
VBA:オートシェイプの線の長...
-
オブジェクト変数またはWITHブ...
-
Excel VBAでIEにアクセスするプ...
-
エクセルのVBAの標準モジュール...
-
VBAについてです。 初心者です...
-
Excel VBAでWordの複数ファイル...
-
VBScriptでExcelのグラフを貼り...
-
AccessVBAで「dim dbs as datab...
-
VBからPDFファイル自動生成...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
アクセスにてオブジェクト名変...
-
(初心者です)VBAについて。「実...
-
VBAで作成するメール(開封確認...
-
エクセルVBAでcode128のバー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
PowerPointVBAでスライドマスタ...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAについてです。 初心者です...
-
VBScriptでファイルの日時順(降...
-
Excelでフィルタをかけると警告...
-
VBAからPDFファイルにパスワー...
-
VBで引数にDictionaryオブジェ...
-
このように書くべきですか? { ...
-
EXCEL VBA オートシェイプナン...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
おすすめ情報