エクセルの学校：全文検索：Hyper Estraier：フォーマット　自動　印刷

Results of 1 - 1 of about 103 for フォーマット　自動　印刷 (0.009 sec.)

フォーマット (1423), 自動 (14517), 印刷 (5709)

[[20050928151303]]: #score: 8137; @digest: 7a11a8e34c102e500bd776e492b03482; @id: 17161; @mdate: 2005-09-29T08:40:58Z; @size: 2079; @type: text/plain; #keywords: ai450 (29072), r450 (21804), 知詠 (9451), 不知 (9363), 詠人 (8781), 囲ペ (7748), mutsu (5326), q31 (4449), 刷デ (3548), 動抽 (3157), 然出 (2845), 刷() (2623), 刷マ (2368), 力sh (2197), printarea (2149), 刷対 (1793), pagesetup (1682), ・sh (1484), （mu (1278), 印刷 (1216), sheet2 (1176), 表内 (1128), printout (1127), （不 (1073), 数人 (1049), クテ (1025), 人さ (963), ィブ (941), selectedsheets (940), 午後 (889), アク (840), from (799); 『別シートのマクロでの印刷』（mutsu）
お久しぶりです。以前、次のような印刷マクロをお教えいただきました。 Sub 印刷() ActiveSheet.PageSetup.PrintArea = "R1:AI450" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Range("Q31").Value End Sub 「R1」から「AI450」のデータをマクロによって印刷するというものです。この印刷データの部分を、SHEET2の「A1:R450」へ移動させ、印刷範囲ページの指定も「Q31」ではなく、SHEET2の「B500」にしようと思います。この場合、マクロはどのように変わるのでしょうか? 午後からずっと色々調べて、やってみましたが全然出来ません。＞＜よろしくお願いいたします。 ---- (MSE) 単純に、 "R1:AI450"を"A1:R450"に "Q31"を"B500"に書き換えて、 SHEET2をアクティブにしてからマクロを実行する。という事ではないのでしょうか? ---- やはり、SHEET2をアクティブにするしかないのでしょうか? BOOKを複数人で利用するので、SHEETをいじられたくなく、入力SHEETのみを、アクティブにしておきたいのです。（mutsu） ---- アクティブにしなくても印刷対象としてSheet2を指定すればよいのではないでしょうか。 Sub 印刷() Sheets("sheet2").Range("A1:R450").Value = ActiveSheet.Range("R1:AI450").Value Sheets("Sheet2").PageSetup.PrintArea = "A1:R450" Sheets("Sheet2").PrintOut From:=1, To:=Sheets("Sheet2").Range("B500").Value End Sub （不知詠人） ---- 不知詠人さん、ありがとうございます。説明不足で申し訳なかったのですが、 SHEET2には既に表のフォーマットを作成し、 SHEET1からデータを抽出させています。・SHEET1には、データ入力表のみ（R1:AI450のデータは削除）・SHEET2には、A1:R450に印刷用の表のみ（表内のデータはSHEET1より自動抽出）という具合になっています。ご提案いただいた、マクロを実行させるとSHEET2の表の見出し等がなくなってしまいました。よろしくお願いいたします。（mustu） ---- 余計なことをしたようです。 Sheets("sheet2").Range("A1:R450").Value = ActiveSheet.Range("R1:AI450").Value がSheet2のデータを書き換えている部分ですから、この行を消してください。（不知詠人） ---- 不知詠人さん、度々ありがとうございました。大変助かりました♪ (mutsu) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200509/20050928151303.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ