[已解决]求页面设置代码

dyzx · 发表于 2014-5-19 08:31

本帖最后由 dyzx 于 2014-5-19 14:38 编辑

麻烦各位老师帮忙写一段代码（将表1格式设置成表2格式，A4纸输出）

最佳答案

月排行榜 / 总排行榜

zjdh

2014-5-19 09:51

本帖最后由 zjdh 于 2014-5-19 10:16 编辑

Sub test()
For Each SH In Sheets
With SH
.Rows(1).RowHeight = 30
.Rows(2).RowHeight = 30
.Rows("4:12").RowHeight = 40
For I = 1 To 16 Step 2
With .Range(.Cells(4, I), .Cells(12, I + 1))
.Borders.LineStyle = xlDouble
.Borders(xlInsideVertical).LineStyle = xlDash
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).Weight = xlThin
.VerticalAlignment = xlCenter
End With
.Columns(I).ColumnWidth = 6
.Columns(I + 1).ColumnWidth = 2.5
Next
.Rows("1:2").Font.Size = 20
.Range("F2:J2").Merge
With .Range("G16:I16")
.Merge
.RowHeight = 30
.Borders.LineStyle = xlDouble
.Value = "讲桌"
.Font.Size = 20
End With
.Cells.HorizontalAlignment = xlCenter
.Cells.VerticalAlignment = xlCenter
End With
Next
End Sub

复制代码

跳转到最佳答案楼层

zjdh · 发表于 2014-5-19 08:48

录制一个宏就都有啦！

dyzx · 发表于 2014-5-19 09:07

zjdh 发表于 2014-5-19 08:48
录制一个宏就都有啦！

录制的宏太长了，能否写个简单点的。

hwc2ycy · 发表于 2014-5-19 09:10

直接用格式刷呢。

dyzx · 发表于 2014-5-19 09:14

hwc2ycy 发表于 2014-5-19 09:10
直接用格式刷呢。

用格式刷怎样刷，如果有多个表1的表，现要统一设置成表2的格式，应该怎样设置？多谢指教。

zjdh · 发表于 2014-5-19 09:51

本帖最后由 zjdh 于 2014-5-19 10:16 编辑

Sub test()
For Each SH In Sheets
With SH
.Rows(1).RowHeight = 30
.Rows(2).RowHeight = 30
.Rows("4:12").RowHeight = 40
For I = 1 To 16 Step 2
With .Range(.Cells(4, I), .Cells(12, I + 1))
.Borders.LineStyle = xlDouble
.Borders(xlInsideVertical).LineStyle = xlDash
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).Weight = xlThin
.VerticalAlignment = xlCenter
End With
.Columns(I).ColumnWidth = 6
.Columns(I + 1).ColumnWidth = 2.5
Next
.Rows("1:2").Font.Size = 20
.Range("F2:J2").Merge
With .Range("G16:I16")
.Merge
.RowHeight = 30
.Borders.LineStyle = xlDouble
.Value = "讲桌"
.Font.Size = 20
End With
.Cells.HorizontalAlignment = xlCenter
.Cells.VerticalAlignment = xlCenter
End With
Next
End Sub

复制代码

dyzx · 发表于 2014-5-20 08:41

zjdh 发表于 2014-5-19 09:51

zjdh老师：如果要4纸输出，页边距上下为2.5cn、左右为1.5cn,哪代码应该怎样？多谢。

zjdh · 发表于 2014-5-20 09:44

Sub Macro1()
With ActiveSheet.PageSetup
      .TopMargin = Application.InchesToPoints(0.98)
      .BottomMargin = Application.InchesToPoints(0.59)
      .PaperSize = xlPaperA4
End With
End Sub

dyzx · 发表于 2014-5-20 10:07

zjdh 发表于 2014-5-20 09:44
Sub Macro1()
With ActiveSheet.PageSetup
.TopMargin = Application.InchesToPoints(0.98)
...

zjdh老师：上、下边距各为2.5cn，左、右边距各为1.5cn，且整个表格居中，多谢，辛苦了。

zjdh · 发表于 2014-5-20 10:16

本帖最后由 zjdh 于 2014-5-20 10:19 编辑

没看清

Sub Macro1()
With ActiveSheet.PageSetup
      .TopMargin = Application.InchesToPoints(0.98)
      .BottomMargin = Application.InchesToPoints(0.98)
      .LeftMargin = Application.InchesToPoints(0.59)
      .RightMargin = Application.InchesToPoints(0.59)
      .CenterHorizontally = True
      .CenterVertically = True
      .PaperSize = xlPaperA4
End With
End Sub

		自动登录	找回密码
密码			注册

[已解决]求页面设置代码

点评

评分

评分