[[20050928151303]]　『別シートのマクロでの印刷』（mutsu）　ページの最後に飛ぶ

『別シートのマクロでの印刷』（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）

 アクティブにしなくても印刷対象としてＳｈｅｅｔ２を
 指定すればよいのではないでしょうか。
 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)

コメント返信：

[ 一覧(最新更新順) ]

[[20050928151303]] 『別シートのマクロでの印刷』（mutsu） ページの最後に飛ぶ

[[20050928151303]]　『別シートのマクロでの印刷』（mutsu）　ページの最後に飛ぶ