Excelで、9000行のデータを自分の思った行数で、ここまでを1枚の紙に次は、ここまでを次の1枚にと、紙の大きさに合わせて印刷するには、地道に列幅を設定していくしか方法は、ないでしょうか。教えて下さい。

A 回答 (2件)

先ずは、印刷プレビューを表示して、


  設定→ページタブ→次のページ数にあわせて印刷する
を設定します。
横を1ページに収めたいならば、横を1、縦は空欄にします。

次に、通常表示に戻って、「改ページ表示」を選択します。
エクセル表示で、印刷範囲が青線で、改ページ場所は青点線で表示されます。
この青線/青点線はマウスで移動できるので、
切りの良いところで改ページの印刷を指定できます。

なお、縦9000もあると、それだけ調整しなければならないのはやむをえないと思います。
45行/ページでも200箇所…

その他、行によってセル内文字数(セル幅)が異なる場合は、
  セルの書式設定→配置→文字の制御
で、「折り返して表示」「縮小して表示」などを選択すると、セル幅が統一できます。
    • good
    • 0
この回答へのお礼

とても分かりやすく説明して頂きありがとうございました。
やはり、9000行あると…あっという間と言うわけにはいきまんよね。
助かりました。

お礼日時:2014/06/26 23:00

印刷のスタイルというか設定のところで、選択範囲を縦○枚×横○枚に収める、というオプションがないでしょうか。



後々のために、1枚に収めたい行数と列の範囲で微調整をして、仕上げることができます。
    • good
    • 0
この回答へのお礼

回答頂きありがとうございました。
そのようにできました。

お礼日時:2014/07/06 05:25

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル 表を大きく、紙いっぱいに印刷したい

エクセルで表を作りました。
印刷プレビューで確認したところ
用紙に対して表が小さく見栄えがしません。

一つ一ついじればできると思いますが、
簡単に、
用紙いっぱいにフォントも大きくし、表も大きくし、
印刷するやり方はありますか。
教えてください。

Aベストアンサー

CtrlキーとPのキーを同時に押すと「印刷」ダイアログが呼び出せます。その状態でAltキーとWのキーを同時に押すと「印刷プレビュー」が表示されますので、印刷のイメージがつかめます(必ずしもプレビュー通りには印刷されませんが)
印刷プレビュー画面の上にある、設定のボタンを押してあげれば、余白を少なくしたり、拡大縮小印刷をパーセンテージを指定しておこなえたりします。いずれにせよ、プレビューで確認しながら拡大率を決めていけばいいと思います。なお、「拡大縮小印刷」のところに「次のページ数に合わせて印刷をする」というチェックをいれて横1×縦1にしてあげれば自動で拡大縮小印刷ができる場合がありますが、やってみればわかりますが、特に縮小印刷の場合小さくなりすぎたりする場合もあります。

Qエクセル印刷ページ行数指定

エクセル印刷ページ行数指定
A1:F1000程度のデータがあります。
A4サイズ縦に
1ページ37行で改ページしたいと思います。
1行目はタイトルです。
A:Aの文字データ(半角英数字)の左から2文字目もしくは3文字目が変わると改ページするようにしたいです。
その場合データが1ページ37行に満たない場合でも改ページし37行まで空白(罫線あり)で出力させたいのですが。

Aベストアンサー

先ず罫線無で印刷して、1ページ分の同じピッチの罫線だけのものを重ね打ちします

計算無の印刷
1.1行目のタイトルは、ページレイアウトの印刷タイトルのタイトル行に設定します
2.改ページの挿入は次のマクロを実行します
Sub 改ページ挿入()
Dim A
Dim i, j As Integer
ActiveSheet.ResetAllPageBreaks
j = 0
i = 2
A = Mid(Range("A" & i), 2, 2)
For i = 2 To 3000
j = j + 1
If (j > 37) Or (A <> Mid(Range("A" & i), 2, 2)) Then
Range("A" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
j = 0
A = Mid(Range("A" & i), 2, 2)
End If
Next i
End Sub

先ず罫線無で印刷して、1ページ分の同じピッチの罫線だけのものを重ね打ちします

計算無の印刷
1.1行目のタイトルは、ページレイアウトの印刷タイトルのタイトル行に設定します
2.改ページの挿入は次のマクロを実行します
Sub 改ページ挿入()
Dim A
Dim i, j As Integer
ActiveSheet.ResetAllPageBreaks
j = 0
i = 2
A = Mid(Range("A" & i), 2, 2)
For i = 2 To 3000
j = j + 1
If (j > 37) Or (A <> Mid(Range("A" & i), 2, 2)) Then
Range("A" & i).Se...続きを読む


人気Q&Aランキング