エクセルの印刷

質問

２列のデータで行が多量にある場合、１ページに無駄なく印刷するためには、どのように設定すればいいのでしょうか？

回答No.5

otasuke009 · ベストアンサー

#1です。10000行とは驚きました。別の方法を考えました。

式はかなり複雑ですが、次の方法で比較的簡単にできます。

Sheet1 の A列と B列に10000行のデータがあるとして、
1ページに 50行× 8列（A列からH列）まで印刷できる場合で考えます。

１　Sheet2の A1セルに次の式を入力します。

="Sheet1!"&IF(MOD(COLUMN(A1),2)=1,"A","B")&INT((ROW(A1)-1)/50)*150+(IF(MOD(COLUMN(A1),2)=1,COLUMN(A1)+1,COLUMN(A1))/2-1)*50+ROW(A1)

（Sheet1!A1と表示されます。）

２　この式を A1:H2000 にコピー＆貼り付けします。

３　A1:H2000 をコピーし、同じ範囲に「形式を指定して貼り付け／値」します。

４　[編集]-[置換]で、S を =S に「すべて置換」します。

以上の操作で、Sheet1の 2列× 10000行のデータが、Sheet2の 8列× 50行× 50ページに表示されます。お試しください。

お礼

私の言葉足らずな質問のため、再三の回答ありがとうございました。これからチャレンジしてみたいと思います。勉強不足なのでエクセルに使われてるような気がします。奥が深いですね。早く使いこなせるようになりたいものです。またつまづいたら質問していると思いますので、よろしくおねがいします。どうもありがとうございました。

回答No.4

9013yagi

貼り付け用のシートを作り、印刷範囲（及びセル幅）を決定しておきます。
　その後、マクロで１枚で収まる行数をコピーして「貼り付けシート」にペーストさせるようにすれば、手作業はなくなると思いますよ？

例えば・・・・

Sheets("データ保管シート").Select
Range(Cells(A,1),Cells(A+10,2)).Select
selection.copy

Sheets("貼り付け用シート").Select
Range(Cells(1,B),Cells(B,1)).Select
ActiveSheet.Paste
B=B+2

のようなマクロを書いて For Nextあたりで繰り返し作業させたら、１０行ずつ横並びにデータが張り付きます。
これなら無駄なくシート一杯に印刷できるのでは？

お礼

なるほど、マクロという方法がありますね。自分の知識が追いつかないところもありますので、これからチャレンジしてみたいと思います。どうもありがとうございました。

回答No.3

otasuke009

#1です。説明が不親切・不正確で申し訳ありません。

正確には「図のリンク貼り付け」でした。

１　貼り付けたい範囲をコピー
２　貼り付けたい範囲の左上のセルを選択して
３　シフトキーを押しながら[編集]メニューをクリックすると[図のリンク貼り付け]というメニューが出てきます。

ちなみに、私のエクセルは２００２バージョンです。

お礼

私もエクセル２００２なので、ご説明の通りで出来ました。件数が膨大だと大変な作業ですね（１万行程あるデータと格闘しています）。やはり表計算のためのソフトなのでワードのような編集は期待できないのでしょうね。再度の回答ありがとうございました。

回答No.2

poor_Quark

すくなくともエクセル2000には段組印刷の機能はありませんので、データをすべてワードに貼り付け【書式】→【段組】で必要なレイアウトを設定し印刷するとうまくいきます。

お礼

早速の回答ありがとうございました。段組印刷（この言葉が質問時に浮かびませんでした）がエクセルでは出来ないのですね。ありがとうございました。

回答No.1

otasuke009

印刷用のシートを作り、「画像のリンク貼り付け」機能を使って、データを写し取ります。

お礼

早速の回答ありがとうございました。別のシートを作成し、印刷するという方法になるのですね。「画像のリンク貼り付け」というのがよく分かりません。普通のリンク貼り付けと違いがあるのでしょうか？どのように行えばいいのでしょうか？