ExcelのVBAで得た結果を転記したい
Excelで，ひとつのブックの余白や印刷倍率，印刷品質を表示するのに，次のようなVBAを用いています．
'上余白を表示する
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
marginInches = ActiveSheet.PageSetup.TopMargin / _
Application.CentimetersToPoints(1)
MsgBox "現在の上余白は " & marginInches & " センチです。"
End With
'下余白を表示する
With ActiveSheet.PageSetup
marginInches = ActiveSheet.PageSetup.BottomMargin / _
Application.CentimetersToPoints(1)
MsgBox "現在の下余白は " & marginInches & " センチです。"
End With
'左余白を表示する
With ActiveSheet.PageSetup
marginInches = ActiveSheet.PageSetup.LeftMargin / _
Application.CentimetersToPoints(1)
MsgBox "現在の左余白は " & marginInches & " センチです。"
End With
'右余白を表示する
With ActiveSheet.PageSetup
marginInches = ActiveSheet.PageSetup.RightMargin / _
Application.CentimetersToPoints(1)
MsgBox "現在の右余白は " & marginInches & " センチです。"
End With
'ヘッダー余白を表示する
With ActiveSheet.PageSetup
marginInches = ActiveSheet.PageSetup.HeaderMargin / _
Application.CentimetersToPoints(1)
MsgBox "現在のヘッダーは " & marginInches & " センチです。"
End With
'フッター余白を表示する
With ActiveSheet.PageSetup
marginInches = ActiveSheet.PageSetup.FooterMargin / _
Application.CentimetersToPoints(1)
MsgBox "現在のフッダーは " & marginInches & " センチです。"
End With
'印刷倍率を表示する
With ActiveSheet.PageSetup
Zoom = ActiveSheet.PageSetup.Zoom
MsgBox "現在の印刷倍率は " & Zoom & " パーセントです。 "
End With
'印刷品質を表示する
Dim PrintQuality As Variant
With ActiveSheet.PageSetup
PrintQuality = .PrintQuality(1)
MsgBox "現在の印刷品質は" & PrintQuality & "dpiです。"
End With
現在，ツールバーのボタンをおして起動させているのですが，
シート数が多い時は手間になり，困っています．
（ボタンのコードは以下）
Private Sub Workbook_AddinInstall()
Dim myBar As CommandBar
Dim CKB1 As CommandBarButton
Dim Exist As Boolean
For Each myBar In Application.CommandBars
'名前が"余白"であるならばフラグを立てる
If myBar.Name <> "余白" Then Exist = False Else Exist = True
If Exist = True Then Exit For
Next myBar
'既に作成されていなければ新規作成
If Exist = False Then _
Set myBar = Application.CommandBars.Add(Name:="余白", Position:=msoBarTop)
With myBar
Set CKB1 = .Controls.Add(Type:=msoControlButton)
CKB1.Caption = "余白"
With CKB1
.Style = msoButtonCaption
.FaceId = 266
.Parameter = "余白"
.OnAction = "余白"
End With
.Visible = True
End With
Set myBar = Nothing
Set CKB1 = Nothing
End If
End Sub
そこで，
シートごとに上記の余白等の結果を，
テキストファイルなどに転記できるようにしたいのですが，
VBAで可能でしょうか？
（以下のような感じです）
sheet1
上：40
下：20
左：30
右：10
倍率：98
品質：600
