|
いつもどっちがどっちだかわかんなくなりますっ
wb1sh2.Rows(1).RowHeight = 12.75 '9.75
'印刷範囲設定wb1sh2.Columns("G"  .ColumnWidth = 16.38
wb1sh2.Activate
'印刷余白設定 Count2 = wb1sh2.Range("G65536" .End(xlUp).RowmyStrg = "$G$" & "1" & ":$G$" & Count2 ActiveSheet.PageSetup.PrintArea = myStrg
With wb1sh2.PageSetup
.LeftMargin = Application.InchesToPoints(0)
End With.RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) |
- >
- Yahoo!サービス
- >
- Yahoo!ブログ
- >
- 練習用
コメント（0）
