VB2010からPDFファイルをA4サイズに縮小して印刷する

Question

前提・実現したいこと

PDFファイルをA4サイズに縮小して印刷する

発生している問題

PDFファイルがA3のまま印刷されます。
そして最期にABOBEの画面が残ったままになります。
A4に印刷されて最期の画面も表示されなければよいのですが

(DocuWorksでA4サイズにて印刷できればよいのですが､印刷方法が分からない為
一旦PDFを作成し､PDFからA4サイズにて印刷を試みているのですがどちらも上手くいきません。

該当のソースコード

        Dim di As New System.IO.DirectoryInfo("C:\PDF")
        Dim files As System.IO.FileInfo() = di.GetFiles("*.pdf", System.IO.SearchOption.AllDirectories)

        'シェルオブジェクトの作成
        Dim shellObj As Object
        shellObj = CreateObject("WScript.shell")

        Dim exeStm As String

        Try

            For Each f As System.IO.FileInfo In files

                exeStm = ""

                'コマンドラインの文字列を作成する
                exeStm = "AcroRd32.exe /t" & Chr(34) & f.FullName & Chr(34)
                shellObj.Run(exeStm)   '印刷する

                '1秒待機（不要かもしれない）
                System.Threading.Thread.Sleep(1000)

            Next


            'お片づけ
            shellObj = Nothing


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

Comments

[KoichiSugiyama]

ここで聞くよりAdobeのサポートに聞いたほうが早いのではないでしょうか。
それともサポートの指示通り記述してなおうまく動かない、ということでしょうか。

[tamachan2020]

すみません。
Adobeのサポートへの聞き方が分からないのですが｡
プログラムの記述を教えていただけるのなら､質問するのですが

Answer 1

残念ながら、AcroRd32.exeのコマンドラインからの印刷では、用紙サイズなどの印刷オプションは指定できないようです。
あらかじめデフォルトの印刷設定を行っておくか、以下のサイトを参考にしてみてください。
『とあるフォルダに入っている３つのPDFファイルを一度に印刷したい』
https://teratail.com/questions/62102

Comments

[tamachan2020]

有難うございました。勉強になります。