Results of 1 - 1 of about 7928 for VLOOKUP (0.002 sec.)
- [[20230216150830]]
- #score: 3346
- @digest: 6d314598a1c3578d54343f4412f9f758
- @id: 93543
- @mdate: 2023-02-18T08:55:15Z
- @size: 1580
- @type: text/plain
- #keywords: 刷画 (9003), xldialogprint (8108), 面") (7646), ん高 (4869), dialogs (4454), 続印 (4363), xldialogprintersetup (3769), 用' (3685), 橋さ (3676), 藤さ (2899), 答内 (2882), 証用 (2850), 部印 (2713), 伊藤 (2444), ド検 (2266), 印刷 (1893), ジ通 (1632), 高橋 (1585), キト (1248), プ内 (1234), 漠然 (1229), ー() (1208), printout (1128), 強中 (1115), 番最 (1111), m4 (1065), 刷さ (992), printpreview (989), 刷が (886), 連続 (830), 中） (740), （vb (698)
- 『連続印刷で一番最初の印刷が2部印刷されてしまう』（VBA勉強中）
以下のようなコードにて連続印刷を行おうとしたところ、 一番最初の印刷が印刷されてしまいます。 例:伊藤さん 高橋さん 佐藤さん の順番で連続印刷しようとすると 伊藤さん 伊藤さん 高橋さん と印刷されてしまいます。 Range("M4") = 1 If Application.Dialogs(xlDialogPrint).Show = True Then Do Until Range("M4").Value = Range("M5").Value Worksheets("印刷画面").PrintOut Range("M4") = Range("M4") + 1 Loop End If どのようにすれば正常に印刷されるか、ご教示いただけますでしょうか。 ＜ 使用 Excel:Excel2016、使用 OS:Windows11 ＞ ---- Application.Dialogs(xlDialogPrint).Show = True ↑この時点で最初の1回目の印刷は実行されています。 コードの全体がわからないので回答内容も漠然としてしまいますが、 Doループ内ではその次の設定に変えてから処理を実行しましょう。 （ふなば） 2023/02/16(木) 15:39:46 ---- 既に回答がありますが、こちらがやりたかったことだったりしませんか? Sub テキトー() Dim i As Long Application.Dialogs(xlDialogPrinterSetup).Show '★ココ For i = 1 To ActiveSheet.Range("M5").Value - 1 Step 1 ActiveSheet.Range("M4").Value = i Worksheets("印刷画面").PrintPreview 'コード検証用 'Worksheets("印刷画面").PrintOut Next i End Sub （もこな2） 2023/02/16(木) 21:33:38 ---- 返信が遅くなり申し訳ありません。 教えていただいた通りにやったところイメージ通りに印刷できました! ありがとうございます。! （VBA勉強中） 2023/02/18(土) 17:55:15... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202302/20230216150830.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97028 documents and 607994 words.
訪問者：