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

三橋のメッセージ(#2)への返事

返信ありがとうございます。
やはりできないのですね。
結局、画面キャプチャーを撮ってエクセルに貼り付け印刷する方法にしました。

ありがとうございます。

> 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