PDFファイルをページ指定で閲覧・印刷
- 題名: PDFファイルをページ指定で閲覧・印刷
- 著者: 琴
- 日時: 2004/01/28 9:33:31
- ID: 2272
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: PDFファイルをページ指定で閲覧・印刷
- 著者: xp2
- 日時: 2004/01/28 20:51:53
- ID: 2280
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: PDFファイルをページ指定で閲覧・印刷
- 著者: 琴
- 日時: 2004/01/29 10:34:51
- ID: 2290
- この記事の返信元:
- この記事への返信:
- ツリーを表示
分類:[VB6以前]
VB6.0でPDFファイルを指定ページで開いたり、印刷を行おうとしています。
検索サイトでコードを入手したのですが、Acrobatがインストールされていないと動かないようです。
クライアントにインストールできるのはライセンスフリーのAcrobatReaderだけなので非常に困っています。
なんとかしてVB6.0+AcrobatReaderでPDFファイルの閲覧・印刷はできないでしょうか?
検索サイトで見つけたソースを以下に書いておきます。
-------------------------------------------------------------------
Private Sub Command1_Click()
Dim bok As Boolean
Dim AcroApp As Object, AVDoc As Object
Dim avPageView As CAcroAVPageView ', pdPage As CAcroPDPage
'操作するPDFファイルを定義する。
Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")
bok = AVDoc.Open(Text1, "") 'Text1.Text = "c:\test.pdf"
AcroApp.Show 'pdfファイルを開く(1ページ:内部的には0ページ目)
'開いているPDFファイル(AVDOC)に対して制御する。
Set avPageView = AVDoc.GetAVPageView()
' Set pdPage = avPageView.GetPage()
avPageView.GoTo (Val(Text4.Text)) '0,1,2,3・・ページを指定して開く
Text2.Text = avPageView.GetPageNum '現在開いているページ番号
Text3.Text = AVDoc.GetTitle '現在開いているファイル名
'但し、Acrobat Reader で使用できるメンバ関数は一部のみ??
' AcroApp.Show 'ここでpdfファイルを開いてもOK
End Sub
-------------------------------------------------------------------