• 締切済み

エクセルの印刷範囲設定について

tksoftの回答

  • tksoft
  • ベストアンサー率36% (99/273)
回答No.1

例えば次のようなマクロを作成して,印刷ボタンに変えたらどうでしょう。 Sub PrintData() Dim Row As Integer Row = 1 Do Until Worksheets("Sheet1").Cells(Row, 1) = "" Row = Row + 1 Loop ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & (Row - 1) ActiveSheet.PrintOut End Sub

noname#16474
質問者

お礼

ありがとうございます 一般機能で無理ならこれを使わせてもらいます。 2006.03.04 16:29:59

noname#16474
質問者

補足

一般機能では無理でしょうか? 2006.03.04 16:28:41

関連するQ&A

  • エクセル2007の印刷範囲の設定について

    添付画像の表をA4の縦長のスタイルで プリントアウトしたいと考えて、以下の作業を行いました。 (1)ページレイアウト→印刷範囲→印刷範囲のクリア (2)A列からD列までの任意の行を範囲選択 (3)印刷範囲の設定 ところが印刷プレビューを見てみると、 1枚目はA,B列、2枚目はC列、3枚目はD列のみ と3枚バラバラに表示されます。 また画像では分かりにくいかもしれませんが、 D列右罫線には印刷範囲の設定の破線が表示されて いるにもかかわらず、C列の左右の罫線には 点線が表示されています。 C列の左右の罫線に点線が表示されていることが 何か怪しいと思いますが、何をどうすれば良いのか分かりません。 この状態で表をA4の縦長のスタイルでA列からD列までの 範囲を印刷できる状態にする方法をご存じの方ご教示願います。

  • エクセル2010で表の印刷範囲を自動指定したい

    次の2つの質問があります。マクロ以外の方法で教えてほしいです。 【質問1】 表Aのピンク部分のみ出力したいため、以下の手順で設定したところ、表Aの黄色部分(行10)まで出力されてしまいます。どのように修正したら良いでしょうか。 ※表Aと表Bの印刷範囲は縦横とも同じで、縦(列数)はA列の”1”をカウントした数(可変)です。  1.A1に表示したい行数を入力  2.印刷範囲を指定 → B3:D10  3.名前の定義を設定 → 参照範囲・・・ =$B$3:OFFSET($B$3,0,2,$B$2) 【質問2】 質問1と同条件で表A(ピンク部分)と表B(オレンジ部分)を出力したい場合、どのような設定をすればよいか教えてください。 よろしくお願いいたします。

  • エクセル、変動する印刷範囲の設定

    変動するデータを自動的に範囲設定して印刷したいです。 エクセル2007を使用しています。 sheet1を元データとして、sheet2で元データの必要項目だけ選んで表を作成しています。 sheet2は5000行×15列の表で罫線も引いてます。 元データは毎回変動するので、データの入っているところだけ自動的に印刷できるようにしたいです。 行数が毎回変動します。列は15列で固定ですが、印刷は12列迄で固定です。 すいませんが、教えてください。

  • Excel 印刷時に複数範囲を含む自動範囲設定

    始めまして、こういった場所は始めてなので少し緊張しております。 Excelで更新回数の多い表を作っております。 今までは少数の人間で作っていましたが今後かなり多くの社員が使う事になり、更に更新度が増えた為、雛形を作る事となりました。 よって・入力シートと印刷用シートに分けて作りました。 入力シートに入力した項目が二つの印刷シートにそれぞれ入力されるようにしてあります。 印刷用シートは両方保護をかけ、使用者が書き換えてしまわないようにしてあります。 印刷シートは例として次のようになっています。 =====================================  <<印刷タイトル>>        説明書き等いろいろ  ▽新規表 +--------+--------+--------+-------+ |太郎 |xxx-xxxx|東京都 |------ | +--------+--------+--------+-------+ |花子  |xxx-xxxx|大阪府 |------ | +--------+--------+--------+-------+ |義男  |xxx-xxxx|東京都 |------ | +--------+--------+--------+-------+ 長文~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~ ××産業株式会社 4月付 ===================================== 2枚ともスタイルは同じで、内容が個人情報を極力抑えた物と 入力したものそのままの物があります。 ちょうど中央に表があり、その表が今後まだ増える予定となっています。 ココまではなんとかできました>_< しかし、そのデータの増える表は予め罫線のみ引っ張ってあり、内容の空の部分も、印刷されてしまします。 Print_AreaにOFFSET文を使って範囲指定してみたのですが、 セルが隣り合ってしまうと関数が消えてしまい、 間に空白セルを入れると改ページされてしまいます。 いろいろ他に調べたのですがどれもうまく行きません。 何か良い方法は無いでしょうか? あとの問題はコレだけなのです! どうか、お知恵をお貸し下さい!

  • Excelの印刷範囲を可変にしたい

    Sheet1にデータの一覧表を作成、Sheet2に様式を作成して、Sheet1のデータをセル参照で表示させるようにしました。 このSheet2がSheet1のデータ件数によって印刷範囲が毎回変わるので、名前の定義でPrint_Areaを =OFFSET($A$1,0,0,COUNTA($A:$A),20) としましたが、思うようにいきませんでした。Sheet2のA列に空白セルが一定間隔であるのが原因かとおもったのですが、それにしても値のあるセルの数と表示される行が一致しなくて、何が問題なのかわからなくなりました。 上記設定の問題点と解決方法を教えていただきたいと思います。もし、全く他の方法があればそれでも構いません。初心者で独学勉強中ですが、簡易なものであればマクロも理解できるかと思います。よろしくお願いします。 【Sheet2の様式】   A    B    C    D     E   …  T 1 番号  名前   〒    県名  日程1 …  確認 2(空白) フリガナ 住所  (結合) 日程2 … (空白) 3(空白)(空白)  電話番号(空白) 日程3 … (空白) 上記3行が1件分で、以下の行へ繰り返します。使用の度に件数が変動します。

  • Excel97 印刷範囲の設定

    ある大きな表を作っており、3行目に表の項目があります。 この項目にオートフィルタを設定し、データを振り分けたものを何回か印刷するという ことをしています。 このとき、1行目と2行目は印刷したくなく、今は毎回印刷範囲を指定しているのですが、 1行目と2行目のセルを「表示しない」に設定する以外で、簡単に行える方法はないでしょうか。 ※印刷範囲設定で、開始行は3行目でいいのですが、終了行が毎回違うため、その都度 印刷範囲を設定しなければいけないのが、煩わしいので。

  • Excel 参照範囲をVBAで設定について

    Excel 参照範囲をVBAで設定について win2000 Excel2000 VBAでOFFSETを使用して参照範囲を設定しようとするとダブルコーテーションがついてしまいうまくいきません Workbooks("Book1.xls").Names.Add Name :="AA", RefersToR1C1:="OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$A:$A)-1,1)" (A列が可変なのOFFSETを使用しております) 解決方法をご存知の方ご教授お願い致します

  • 印刷の範囲設定について

    エクセル2003で、文字等を入力しA4サイズの紙1枚に印刷しようとしました。(紙1枚で収まるデータ量です。) ただし、入力した全てを印刷するのではなく、ある部分だけを印刷したいのです。以下は自分がしたやり方です。 まず、ドラッグで全体を範囲設定し、ファイル→印刷範囲で設定をかけ、次に印刷したくない部分をドラッグで範囲選択し、今度はファイル→印刷範囲で範囲の解除とやったのですがうまくいきませんでした。 どのようにすばできるのか、どなたか教えていただけませんでしょうか?

  • エクセルのマクロで、印刷設定をしたいのですが可能でしょうか?

    エクセルのマクロで、印刷設定をしたいのですが可能でしょうか? お世話になっています。 会社での作業を少しでも効率よく出来ないものかと、以下のようなことを考えています。 エクセル2003を使用していますが、下記のような動作をするマクロを組むことは可能でしょうか? よろしくご教授ください。 Sheet1は、入力用のシートとして使っています。 Sheet2は、Sheet1に入力された商品データなどから、必要な箇所のみ反映されるように設定しています。 このシートは、罫線などが存在し表形式になっており、全てを印刷するとA4用紙6枚分になります。 そこで、Sheet1(入力用のシート)のJ18セルに文字が入力された場合は、Sheet2(印刷用のシート)の1ページだけを印刷したく、Sheet1のj27セルに文字が入力された場合は、Sheet2の2ページまで・・・ Sheet1のJ36に文字が入力された場合は、Sheet2の3ページまでという風に印刷範囲を設定しなくても印刷出来るようにしたいのです。 よろしくお願いします。

  • EXCELの印刷範囲のクリアについて

    Excel2007です。よろしくお願いします。 最終的には、別シートを作り直して解決はしたのですが、 方法が分からずすっきりしないため、今後のためにも知っておきたく、 こちらに質問させていただきました。 いただいたEXCELファイルでのことなのですが、 例えば、現在、A1~G10まで何らかの情報が入力されている状態で、 行数は今後増えていくことを想定しB~Fまでを印刷範囲としました。 AとGの列は、データは入力されていますが、印刷はさせたくない部分とします。 印刷プレビュー画面で参照すると、 本来であればB1~F10までが印刷範囲として表示されるはずと思いますが、 なぜかB1~F70、と、行が70列まで範囲状態となってしまいます。 本来1ページで済むはずが、2ページにわたって印刷範囲となっています。 B1~F10を範囲指定すると正常に指定されるのですが、 データが増えることを考えると、列での設定をしたいと思っています。 印刷範囲をクリアし、再度B~Fを印刷範囲設定したのですが、 何度行っても70行まで設定されてしまいます。 何か変なデータが設定されているのかと思い、 11行目~70行目までを削除しても、治りません。 また逆に、60行目あたりで行の追加をすると、印刷範囲はB1~F71、のように 増えていきました。 ですが、行を削除しても範囲は減りません。 ですので、増えた分は増えっぱなしです。 確認した点は、以下です。 ・VBAで設定されているか?⇒「PrintArea」で検索したが、設定なし。 ・名前の管理⇒$B:$F の設定のみで、他の設定はなし どのようにすれば、印刷範囲で行が固定されている部分を解除できますでしょうか? お手数をおかけいたしますが、よろしくお願いいたします。