[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『画像の差し込み印刷がうまくできないんですが』(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 >
(マナ) 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.