同一工作薄中很多个工作表利用宏设置工作表格式

lhp246

从系统导出工作薄，该工作薄中有很多个工作表，需要写一个宏代码，设置打印纸张方向为横向，且各工作表自动设置列宽至适合打印页面宽度，某列超过某宽度后自动换行到适合行高。表格详见附件，求大神帮写个代码，谢谢！！！！！

lsc900707

格式设置的话自己录制宏就可以完成。

zeuger

试试下面的，我刚开始学，可能不完全是你想要的

Sub Printsetup()

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets
    sh.PageSetup.PrintArea = ""
    sh.UsedRange.Columns.AutoFit
   
    Application.PrintCommunication = False
    With sh.PageSetup
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 0
    End With
Next

Dim ws_count As Integer, i As Integer
i = 1
ws_count = ThisWorkbook.Worksheets.Count

For i = 1 To ws_count Step 1
ThisWorkbook.Worksheets(i).Activate
ActiveWindow.View = xlPageBreakPreview
Next

Application.PrintCommunication = True
   
End Sub

lhp246

zeuger 发表于 2018-7-2 10:56
试试下面的，我刚开始学，可能不完全是你想要的

Sub Printsetup()

谢谢，还是比较接进我想要的效果的，我是一点也不会，可不可以帮我在你写的代码后面加个备注，我自己去修改

lhp246

zeuger 发表于 2018-7-2 10:56
试试下面的，我刚开始学，可能不完全是你想要的

Sub Printsetup()

我这个附件应该是要用穷举法来写不同的列宽来对应不同的工作表才行