[[20170807210758]] 『画像の差し込み印刷がうまくできないんですが』(yasshi) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『画像の差し込み印刷がうまくできないんですが』(yasshi)

画像の差し込み印刷に挑戦しているのですがうまくいきません。
過去ログも検索しましたがわかりません。
waitも試しましたが駄目でした。
宜しくお願い致します。

< 使用 Excel:Excel2010、使用 OS:Windows7,10 >

Sub LP()
Dim picst As String
Sheets("TEMP").Image1.Picture = LoadPicture("") 'img初期化
picst = ThisWorkbook.Path & "\PIC\" & Right("00" & Sheets("TEMP").Range("B1"), 2) & ".jpg"
Sheets("TEMP").Image1.Picture = LoadPicture(picst)
End Sub

Option Explicit

Private Sub CB1_Click()
Dim bangou, a, n As Long
Dim picst As String
a = Range("F1").Value '開始番号
n = Range("H1").Value '終了番号
For bangou = a To n
Range("B1").Value = bangou ’VLOOKUPで読み込みD1,B3,B4,B5(ここは問題なく差込できます)
Call LP '※ 最終頁の印刷が終わってから画面の画像が切り替わります。ここを直したいんです。
ActiveWindow.SelectedSheets.PrintOut
Next bangou
End Sub

ちなみに↓は画像が切り替わります。
Private Sub SpinButton1_Change()
Call LP ’※画像がB1の値に応じて変化します。
End Sub

< 使用 Excel:Excel2010、使用 OS:Windows10 >


こんなのは試してみましたか
DoEvents
DoEvents
DoEvents

(マナ) 2017/08/07(月) 22:13


マナさんありがとうございます。

For bangou = a To n
DoEvents
Range("B1").Value = bangou
Call LP
DoEvents

と変更したら上手くいきました。

本当にありがとうございました。
(yasshi) 2017/08/07(月) 22:39


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.