削除

ExcelVBAからIE画面印刷のページ設定方法削除

Message#2 2019年3月2日(土)04時40分
From: 三橋

ExecWBメソッドではページ指定ができなかったような気がします。

> いつもお世話になっております。
>
> VBA及びIE制御が初心者のため、ご教授ください。
> 以前も同じ質問(「ExcelVBAからIEの印刷操作について」)があったようなのですが、私も同じ内容で困っているため新たに質問します。
>
> エクセルからマクロでIE画面を開き、1ページ目だけを印刷したいのですが、1ページ目だけというページ設定の方法がわからず困っています。
> 実際に組んだ内容は下記の通りです。
> 宜しくお願いします。
>
>
> ＜流れ＞
> ①Do while文
> ②IE起動
> ③画面移動の完了を待つ
> ④印刷
> ⑤IEを閉じる
> ⑥Loop
>
>
> ＜実際のプログラム＞
> Sub ボタン1_Click()
>
> Dim ie As Object
> Dim a As Integer
> Dim url As String
> Dim rc As Integer
>
> a = 4
>
> Do While Sheets("銘柄").Cells(a, 3) <> ""
> 　 '変数にエクセルのURLを代入
> url = Sheets("銘柄").Cells(a, 3).Value
>
> 'IE起動
> Set ie = CreateObject("InternetExplorer.application")
> ie.Visible = True
>
> 'URLに移動
> ie.Navigate url
>
> 'URL移動完了を待つ
> Do While ie.Busy
> Debug.Print ie.Busy
> DoEvents
> Loop
>
> '印刷実行
> ie.ExecWB 6, 2, 3
>
> 'IE画面を閉じる
> ie.Quit
> Set ie = Nothing
>
> 'エクセルのセルを移動し次のURLへ
> a = a + 1
>
> Loop
>
> End Sub

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。