• 締切済み

EXCELの印刷範囲の変更について

印刷範囲を変更しようと思い、 改ページプレビューにてドラッグしているのですが、 ・上範囲の設定線 ・左範囲の設定線 ・右範囲の設定線 ・複数ページの仕切り範囲の設定線 はドラッグで変更できますが、 一番下の範囲の設定線だけ選択できず変更できません。 VBAプログラムを組み込んでいるためかと思い、 該当Sheet.PageSetup.PrintArea = "" の記述を追記して初期化をはかりましたが 結果は同じです。 御存知の方いましたらご教授ください。

みんなの回答

  • ultraz
  • ベストアンサー率34% (9/26)
回答No.1

参考ＵＲＬ内のマクロを変更して利用することで 問題が解決しないでしょうか？ その他の方法については、エクセル、印刷範囲変更 ＶＢＡなどをキーワードにして検索すると参考になる ページを多くあると思います。

参考URL：
http://questionbox.jp.msn.com/qa4788769.html
wrongside
質問者

お礼

回答ありがとうございます。 もともと ' 印刷設定 'With resWs.PageSetup ' .PrintArea = "A1:X" & rownum ' .PaperSize = xlPaperA3 ' .TopMargin = Application.CentimetersToPoints(0.5) ' .LeftMargin = Application.CentimetersToPoints(0.5) ' .RightMargin = Application.CentimetersToPoints(0.5) ' .BottomMargin = Application.CentimetersToPoints(0.5) ' .HeaderMargin = Application.CentimetersToPoints(0.5) ' .FooterMargin = Application.CentimetersToPoints(0.5) ' .Zoom = False ' .Orientation = xlPortrait ' .FitToPagesTall = False ' .FitToPagesWide = 1 'End With といった形で記述してのですが、ユーザから自分で印刷範囲を 設定したいとの要望をうけてコメントアウトして初期化を図り ましたが、進展なしです。。。

wrongside
質問者

補足

残念ながら解決できませんでした。 ご協力ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • エクセル2007　印刷マクロ

    A1からE25までを印刷したいのですが，現在このようにしています。 ActiveSheet.PageSetup.PrintArea = "$A$1:$E$12" ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveSheet.PageSetup.PrintArea = "$A$13:$E$25" ActiveWindow.SelectedSheets.PrintOut Copies:=1 これを，ActiveSheet.PageSetup.PrintArea = "$A$1:$E$25" にすると，1枚目と2枚目の区切りが自分の思うようになりません。 改ページプレビューを使って，ページ区切りを設定するのではなく， マクロで何とかしたいと考えています。 1枚目はA1:E12，2枚目はA13:E25に固定する方法を教えて下さい。

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

    特に設定は変更していないのですが、何も入力していないセルまで印刷範囲になってしまいます。 改ページプレビューにして、青い点線を調整することは出来ますが、非常に手間がかかります。 何かに反応して印刷範囲になってしまうのでしょうか？ その後、全てを削除しても印刷範囲は複数ページのままです。

  • VBAにて、複数の選択範囲を1ページに印字したい

    ○開発環境○ OS:Windows7 EXCELバージョン:2010 お世話になります。 現在、EXCEL2010でVBAを使用して業務用のマクロを作成しております。 表題の通り、複数の選択範囲を１ページに印刷する必要があるのですが、 解決方法が分からず困っております。 最初は下記のような記述で印刷を試みたのですが、選択範囲ごとに改ページされてしまいます。 　Worksheets("Sheet1").PageSetup.PrintArea = "A4:F10,A34:F37,A54:F57" 　Worksheets("Sheet1").PrintPreview また、PrintAreaを続けて指定すればいいと紹介されているページを拝見し、下記のような記述も 試みましたが、最後の範囲だけしか印刷されませんでした。（バージョンが違うため？） 　Worksheets("Sheet1").PageSetup.PrintArea = "A4:F10" 　Worksheets("Sheet1").PageSetup.PrintArea = "A34:F37" 　Worksheets("Sheet1").PageSetup.PrintArea = "A54:F57" 　Worksheets("Sheet1").PrintPreview EXCEL2010では、複数の選択範囲を１ページに印刷することは不可能なのでしょうか？ 博識な方いらっしゃいましたら、ご教授いただければと思います。 よろしくお願い致します。

  • VBAの範囲印刷設定を修正したいのですが

    VBAの初心者です。詳しく教えてください。 １.下記のVBAでシートを非表示にしたときに実行時エラー１００４が出るのですが　　どうしたらよいのですか。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Sub printappointedrange() Worksheets("シート１").Activate Range("A1:AB42").Select 'セル範囲の選択 With ActiveSheet .PageSetup.PrintArea = Selection.Address '印刷範囲の指定 .PrintOut '印刷 .PageSetup.PrintArea = False '印刷範囲のクリア End With End sub ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ２.シートに印刷ボタン作成して、印刷はできるのですが、印刷する前にプリンターの設定を変更する方法は無いのですか。

  • Excel印刷範囲について

    例えば印刷範囲をＢ～Ｈ列に指定して、 改ページプレビューで確認してＡ列が印刷範囲外になっていても、 印刷プレビューで見たらＡ列も印刷範囲に含まれるし、 実際に印刷しても、Ａ列が入りますよね？ 左の何列かを印刷しない方法ってありますか？

  • 印刷範囲を設定するvbaコード

    エクセルシートの印刷範囲を設定するvbaコードで Sub Macro1() With ActiveSheet.PageSetup .PrintArea = "$A$1:$c$10" End With End Sub としてるのですが、 "$A$1:$c$10"の部分を Range(Cells(1, 1), Cells(10,3)) 形式でやりたいのですが、 うまくできません。 Sub Macro1() With ActiveSheet.PageSetup .PrintArea = Range(Cells(1, 1), Cells(10,3)) End With End Sub としても、全部が印刷範囲として選択されてしまいます。 というか、印刷範囲が設定されません。

  • 異なる範囲で印刷範囲を設定したい

    異なる範囲で印刷範囲を設定したいのですが、思うようにできません。 改ページ プレビューにした状態で、印刷設定したい範囲をドラッグし、その範囲上で右クリック→”印刷範囲に追加”をクリックすると、”ページ１”はできるのですが、その直後の行から同じようにドラッグ→右クリック→”印刷範囲に追加”をクリックすると、”ページ１”が、ページ２にしたい部分まで包含されてしまいます。連続した行でなければ、異なる範囲でページ２を作成できるのですが、連続した行（ページ１に指定した範囲のすぐ下の行）から別範囲でページ２を作成しようとすると、ページ１に包含されて作成できません。 このような場合、どうすればページ１のすぐ下の行からページ２を作成できるのでしょうか？

  • Excelの印刷範囲が・・・

    いつも通り印刷しようとプレビューを見たら、 突然ページが２枚になっていました。 印刷設定はA4横、拡大/縮小100%、余白は全て0です。 改ページで確認したところ、印刷範囲が 45行目から46行目になっていました。 46行目には何もないので Excel側で印刷範囲を強制的に変えたのでしょうか? 今のところ行った対処法です。 ・印刷範囲のクリア→変わらず ・全ての改ページ解除→変わらず ・46行目全体の削除→変わらず 印刷範囲を45行目に設定すればいいのですが、 この方法だと印刷範囲指定をしたことになります。 お客様に納品するものなので、それはできません。 また、ページを横1×縦1に設定すれば1ページになりますが、 拡大率が98%になってしまいます。 何とか今までのように1ページに戻したいです。 原因にお心当たりの方、回答お願いします。

  • 印刷範囲の設定で教えてください。

    再三再四で申し訳ございません。 マクロで印刷範囲設定は　ActiveSheet.PageSetup.PrintArea = "$B$1:$H65"　と範囲を固定するのが一般的と思うのですが、　印刷範囲が利用者毎に相違するため　開始セル値を　Ａ８　セルに　最終セル達を　Ａ１０　に置く形で　印刷範囲を任意変更可能にしたい場合には　セル値で印刷範囲設定する方法を　お教えくださいますよう　御願いいたします。

  • エクセルの印刷範囲をマクロで決めたいです。

    以前こちらで、選択範囲を印刷範囲にする方法を教えていただきました。 選択範囲は別の項目で決定されています。 With Selection Vert = .Rows.Count Side = .Columns.Count Print_range = .Cells(1, 1).Address & ":" & .Cells(Vert, Side).Address End With With ActiveSheet.PageSetup .PrintArea = Print_range .PaperSize = xlPaperA3 .Orientation = xlPortrait End With 以上の記述で無事選択範囲が印刷範囲になりました。 次に、選択範囲が何種類かのパターンに絞れる事がわかったので パターンごとに拡大縮小印刷の％も決定しようと Select Case True Case Masu = 10 ActiveSheet.PageSetup.Zoom = 100 Case Masu = 11 ActiveSheet.PageSetup.Zoom = 115 Case Masu = 12 ActiveSheet.PageSetup.Zoom = 123 Case Else ActiveSheet.PageSetup.Zoom = 100 End Select を追加したところエラーになります。 何がよくないのかさえわかりません。 よい解決策はないものでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する