- ベストアンサー
エクセルで拡大して1枚に印刷したい
エクセル2010です。 シートの印刷範囲を自動縮小してA4一枚にはみ出さないように印刷する方法はわかります。 逆に、そのまま印刷すると小さい印刷範囲を自動拡大してA4一枚にはみ出さないように印刷する方法はないでしょうか？ もちろん拡大率を手動で設定することはできますが、プリンターによって余白が異なるようであらかじめ拡大率を手動で設定してしまうとはみ出る場合があり、自動拡大して一枚に収める技を探しています。
- emaxemax
- お礼率100% (857/857)
- Excel（エクセル）
- 回答数11
- ありがとう数11
- みんなの回答 （11）
- 専門家の回答
質問者が選んだベストアンサー
マクロですが 拡大率を400%(最大)まで上げて段階的に下げて1ページに収まる 拡大率を求めます。 Sub Test() Dim myZoom1 As Long, myZoom2 As Long, myZoom3 As Long With ActiveSheet.PageSetup For myZoom1 = 400 To 10 Step -50 .Zoom = myZoom1 DoEvents If .Pages.Count = 1 Then Exit For Next For myZoom2 = myZoom1 + 50 To 10 Step -10 .Zoom = myZoom2 DoEvents If .Pages.Count = 1 Then Exit For Next For myZoom3 = myZoom2 + 10 To 10 Step -1 .Zoom = myZoom3 DoEvents If .Pages.Count = 1 Then Exit For Next End With ActiveSheet.PrintOut Preview:=True End Sub
その他の回答 (10)
- kkkkkm
- ベストアンサー率66% (1725/2595)
カメラ機能使ってカメラの方の表示を印刷範囲まで広げればいかがでしょう。
お礼
ありがとうございます。
- Thiotimoline
- ベストアンサー率60% (3/5)
あまり知られてないようですが、方法はあります。 以下手順 1 頁設定で拡大縮小の率を400（最大）にします。 2 改頁プレビューモードにします。 3 改頁の青い線をマウスでつまんで、印刷範囲の外までひっぱって離します（ドラッグオフ） 4 １頁の表示になったらプレビューで確認します ※ マクロ化も可能
お礼
ありがとうございます。
- imogasi
- ベストアンサー率27% (4737/17069)
VBAですが（エクセルの操作にも、これらはありますが。画面表示倍率の設定や１ページに収めるなど、の操作） Sub Sample1() Range("A1:H7").Select ActiveWindow.Zoom = True ActiveWindow.Zoom = 400 With ActiveSheet.PageSetup '.Zoom = True .FitToPagesTall = 1 '---縦方向1ページで印刷 .FitToPagesWide = 1 '---横方向1ページで印刷 End With ActiveSheet.Range("a1:H9").PrintOut End Sub を実行したら、大きな文字になって印刷されたが、Zoomの倍率数は手探りで試行して、探さないないとならないようだ。 普通に印刷して、オーバーする場合（それも少しオーバーする場合）は FitToPagesWide などは有効であろうが、普通に印刷して１ページに収まる場合に、自動で１ページに拡大には、役に立たないようだ。それに文字・数字フォンの拡大が必要のようだし、その兼ね合いがむつかしい。 ーー エクセルシートの必要部分を画像化して、その拡大を行うソフトでかつ、拡大後を印刷できるソフトを使うほかないのでは。
お礼
ありがとうございます。
- okok456
- ベストアンサー率43% (2748/6360)
追伸 一手間忘れていました。 印刷範囲に合った適切な用紙サイズに設定が必要です。
お礼
ありがとうございます。
- okok456
- ベストアンサー率43% (2748/6360)
富士通のQ&A ［エクセル］用紙のサイズに自動で合わせて印刷する を参考に https://azby.fmworld.net/usage/windows_tips/20080806/
お礼
ありがとうございます。
- unokwave
- ベストアンサー率58% (966/1654)
やったことはありませんが、VBA(マクロ)を組めばできると思います。 https://docs.microsoft.com/ja-jp/office/vba/api/excel.pagesetup.papersize https://excelwork.info/excel/pagesetuppapersize/amp/
お礼
ありがとうございます。
- kon555
- ベストアンサー率51% (1844/3562)
困った事にありません。できると便利なんですけどね。 なので参考までに、私のやり方をば。 印刷したい範囲を選択しコピー、「形式を選択して貼り付け」で画像に。 これを縦横比率をそのままにして拡大、自動縮小してA4で印刷。 なんとも迂遠ですが、これで一応は自動拡大できるという小ネタです。
お礼
なーるほど。ありがとうございます。
- 中京区 桑原町（@l4330）
- ベストアンサー率22% (4373/19606)
印刷に関してはExcelは何もしてません、拡大したり、縮小するのはプリンターの仕事です。 プリンターによっては「フィットページ」の様に用紙に合わせ自動的に拡縮する機能があります。
お礼
ありがとうございます。
- aokii
- ベストアンサー率23% (5210/22062)
そのまま印刷すると小さい印刷範囲を自動拡大してA4一枚にはみ出さないように印刷する方法はありません。できるのには、文字を拡大して印刷することぐらいです。
お礼
ありがとうございます。
お礼
ありがとうございます。