Results of 1 - 1 of about 296 for 差し込み印刷 (0.002 sec.)
- [[20200619135746]]
- #score: 8241
- @digest: e7bf935a9d2bdd003c5ea4e27215912f
- @id: 84130
- @mdate: 2020-06-19T05:25:48Z
- @size: 1287
- @type: text/plain
- #keywords: 紙") (12359), 列sh (10249), 刷風 (7438), tripbowl (6506), printing (6347), 用紙 (5635), buttons (1650), 紙の (1633), sheet (1537), タ") (1362), collate (1353), vbexclamation (902), み印 (821), 印刷 (811), にsh (743), sheets (680), し込 (643), vbyesno (611), 貼っ (593), printout (563), デー (461), value (449), 差し (414), ータ (407), commandbutton1 (395), のc (394), 刷し (322), excel2019 (312), cells (285), ボタ (254), 行数 (249), タの (236)
- 『差し込み印刷風』（ch）
Excelで差し込み印刷のようなものができないか調べていたら 見つけました https://tripbowl.com/excel-vba/merge-printing/ 直し方がおかしいのか印刷されません 印刷するにはどうするのでしょうか? sheetデータのB8に行数、12行目からデータがあります sheet用紙のA1にsheetデータのB列 sheet用紙のA2にsheetデータのC列 sheet用紙のA3にsheetデータのC列 sheet用紙のA4にsheetデータのD列 を差し込んで印刷します Private Sub CommandButton1_Click() msg = MsgBox("印刷しますか?", Buttons:=vbYesNo + vbExclamation) If msg = vbYes Then For i = 12 To 16 'For i = 12 To Sheets("データ").Range("B8").Value Sheets("用紙").Range("A1").Value = Cells(i, 2).Value Sheets("用紙").Range("A2").Value = Cells(i, 3).Value Sheets("用紙").Range("A3").Value = Cells(i, 4).Value Sheets("用紙").Range("A4").Value = Cells(i, 1).Value Worksheets("用紙").PrintOut FROM:=1, To:=1, COPIES:=1, COLLATE _ :=True Next i End If End Sub ＜ 使用 Excel:Excel2019、使用 OS:Windows10 ＞ ---- ボタンが「データ」シートに貼ってあるなら、このまま動きそうに見えます。 違うシートにボタンを貼ったのであれば、以下とか。 Sheets("用紙").Range("A1").Value = Sheets("データ").Cells(i, 2).Value （???） 2020/06/19(金) 14:25... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/202006/20200619135746.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97049 documents and 608241 words.
訪問者：