EXCELで印刷範囲指定

質問

マクロの記録で印刷範囲の指定を考えています。
以下のマクロを記録しました。

Sub 印刷範囲指定()
Cells.Select
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A1").Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$6:$8"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&A"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&P / &N ページ"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.LargeScroll ToRight:=1
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$50"
ActiveWindow.View = xlNormalView
Columns("B:I").Select
Columns("B:I").EntireColumn.AutoFit
Range("A1").Select
End Sub

やりたいことは
・まず最初にcsvファイルをxlsファイルに取り込む機能をつけたい。
・取り込んだcsvをシートの一番最後につける。
そのファイルを以下のように設定していきたいです。
・列の印刷範囲を数ある列のうちA列からI列までとする。
・行の印刷範囲をA列の最終行までとしたい。

上記マクロでここを修正すればいいというところがあれば教えてください。。

回答No.3

Wendy02

こんばんは。

よく読んでみましたが、

>BからI列目までが横幅が狭く表示され思うようにできません。
>コメント行を解除するとF列でページがわかれて倍のページに
>なってしまいました。

>ここをなんとか横セル幅をいっぱいにして表示させたいです。

この部分ですが、それは、おそらくマクロでは難しいかなって思います。コメント行にしたら、だめだったというなら、おそらく、ぎりぎりのところを使っているのではないかと思います。

>BからI列目までが横幅が狭く表示され思うようにできません。
ただし、それは、改ページプレビュー画面が一部が使われているようでしたが、実際にどのようになっているのか分かりません。

ただ、印刷用紙は横に使っているようですが、それが小さすぎるので、それを、AutoFit で、コメントブロックしたら、広すぎてしまったというなのでは、あまりにも微妙すぎて、マクロでは無理だと思います。そういう場合は、全部、列幅を記録して、それを、後々、当てはめていくようにするしかありません。

もう一度、その部分は以下のマクロで確認してもらいたいのです。

Sub 印刷範囲指定()
Dim sw As Double
Dim MyPagePrintArea As String
　　ActiveSheet.UsedRange.Font.Size = 9
　　Range("A1").Select
　　MyPagePrintArea = Range("A1", Range("A65536").End(xlUp)).Resize(, 9).Address
　　With ActiveSheet.PageSetup
　　　　.PrintTitleRows = "$6:$8"
　　　　.PrintTitleColumns = ""
　　　　.PrintArea = MyPagePrintArea
　　End With

　　With ActiveSheet.PageSetup
　　　　.LeftHeader = ""
　　　　.CenterHeader = "&A"
　　　　.RightHeader = ""
　　　　.LeftFooter = ""
　　　　.CenterFooter = "&P / &N ページ"
　　　　.RightFooter = ""
　　　　.LeftMargin = Application.InchesToPoints(0.78740157480315)
　　　　.RightMargin = Application.InchesToPoints(0.78740157480315)
　　　　.TopMargin = Application.InchesToPoints(0.984251968503937)
　　　　.BottomMargin = Application.InchesToPoints(0.984251968503937)
　　　　.HeaderMargin = Application.InchesToPoints(0.511811023622047)
　　　　.FooterMargin = Application.InchesToPoints(0.511811023622047)
　　　　.PrintHeadings = False
　　　　.PrintGridlines = False
　　　　.PrintComments = xlPrintNoComments
　　　　.PrintQuality = 600　　'特殊？
　　　　.CenterHorizontally = False
　　　　.CenterVertically = False
　　　　.Orientation = xlLandscape
　　　　.Draft = False
　　　　.PaperSize = xlPaperA4
　　　　.FirstPageNumber = xlAutomatic
　　　　.Order = xlDownThenOver
　　　　.BlackAndWhite = False
　　　　.Zoom = 100
　　End With
　　ActiveWindow.View = xlNormalView
　　sw = 7.33 'フォント9 のデフォルト幅
　　Application.ScreenUpdating = False
　　For Each c In Range("A1:I1")
　　　c.EntireColumn.AutoFit
　　　If c.ColumnWidth < sw Then
　　　　c.ColumnWidth = sw
　　　End If
　　Next c
　　Application.ScreenUpdating = True
　　Range("A1").Select
End Sub

お礼

ご回答ありがとうございました。

回答No.2

Wendy02

#1の補足
まず、CSV側のほうを解決してからにしてくださいね。
もちろん、私の書いたコードがオーケーなら、この後に、再び内容を詳しく書いていきます。同時進行だと、何か、ごちゃごちゃになりそうな予感がします。

補足

>>・まず最初にcsvファイルをxlsファイルに取り込む機能をつけたい。

>意味が分かりにくいのですが、単に、xls ファイルにするなら、
>保存のスタイルを変更すればよいですから、それ自体は、記録マ
>クロでも取れますが、

説明不足ですいません。
あらかじめxlsファイルを開いておいて、そのxlsファイルの一番最後
にそのcsvファイルのシートをそのまま持ってくることがしたいです。

回答No.1

Wendy02

こんばんは。

>・まず最初にcsvファイルをxlsファイルに取り込む機能をつけたい。

意味が分かりにくいのですが、単に、xls ファイルにするなら、保存のスタイルを変更すればよいですから、それ自体は、記録マクロでも取れますが、

>・取り込んだcsvをシートの一番最後につける。
であるなら、可能かどうかは別(注意点は後で書きます）として、ActiveSheet.UsedRange.Copy で、

別のシートに移って、
Range("A65536").End(xlUp).Select
ActiveSheet.Paste
とすれば貼り付けられます。

しかし、あまり大きすぎて、はみ出るようになってしまうと、エラーが発生してコピー＆ペーストできません。実際は、UsedRangeだと、少し不安は残ります。CurrentRegion の場合は、連続したセルの範囲だから、少しはマシです。

・行の印刷範囲をA列の最終行までとしたい。
・列の印刷範囲を数ある列のうちA列からI列までとする。

MyPagePrintArea =Range("A1", Range("A65536").End(xlUp)).Resize(,9).Address
で範囲を取って、9は、A列から、9列目のI列まで。

　ActiveSheet.PageSetup.PrintArea =MyPagePrintArea

　と送り込めばよいです。

補足

>MyPagePrintArea =Range("A1", Range("A65536").End(xlUp)).Resize(,9).Address
>ActiveSheet.PageSetup.PrintArea =MyPagePrintArea
上記2行を加えて、
'Columns("B:I").Select
'Columns("B:I").EntireColumn.AutoFit
をコメント行にして、試しました。
BからI列目までが横幅が狭く表示され思うようにできません。
コメント行を解除するとF列でページがわかれて倍のページに
なってしまいました。
ここをなんとか横セル幅をいっぱいにして表示させたいです。