ExcelVBAからIE画面印刷のページ設定方法
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#2 2019年3月2日(土)04時40分 From: 三橋 | 返事 削除 変更 |
| ExecWBメソッドではページ指定ができなかったような気がします。 > いつもお世話になっております。 > > VBA及びIE制御が初心者のため、ご教授ください。 > 以前も同じ質問(「ExcelVBAからIEの印刷操作について」)があったようなのですが、私も同じ内容で困っているため新たに質問します。 > > エクセルからマクロでIE画面を開き、1ページ目だけを印刷したいのですが、1ページ目だけというページ設定の方法がわからず困っています。 > 実際に組んだ内容は下記の通りです。 > 宜しくお願いします。 > > > ＜流れ＞ > @Do while文 > AIE起動 > B画面移動の完了を待つ > C印刷 > DIEを閉じる > ELoop > > > ＜実際のプログラム＞ > 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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
