Excel VBA技术问询：新建工作表时设置特定打印格式

嘿，既然你已经搞定了按车间拆分主清单到不同工作表的宏，接下来咱们把格式设置的逻辑直接整合进去就行！我给你写了一段可以复用的VBA代码，能一次性搞定你要的所有格式要求，每个步骤都加了注释，方便你调整细节：

Sub FormatWorksheetForPrinting(targetSheet As Worksheet)
    ' 先取消工作表保护（如果有的话），避免格式设置失败
    If targetSheet.ProtectContents Then
        targetSheet.Unprotect
    End If
    
    ' 1. 在J列右侧插入垂直分页符
    targetSheet.VPageBreaks.Add Before:=targetSheet.Range("K1")
    
    ' 2. 设置横向打印、适配打印区域
    With targetSheet.PageSetup
        ' 设置横向打印
        .Orientation = xlLandscape
        ' 让内容适配到1页宽（不需要的话可改成False）
        .FitToPagesWide = 1
        .FitToPagesTall = False
        ' 设置打印区域为已使用的单元格范围
        .PrintArea = targetSheet.UsedRange.Address
    End With
    
    ' 3. 设置特定页眉（内容、样式可按需修改）
    With targetSheet.PageSetup
        ' 左页眉：动态显示车间名称（取工作表名）
        .LeftHeader = "&""Arial,Bold""&12 车间：" & targetSheet.Name
        ' 中页眉：项目标题
        .CenterHeader = "&""Arial,Bold""&14 物料主清单"
        ' 右页眉：自动生成打印日期
        .RightHeader = "&""Arial,Regular""&10 打印日期：&D"
    End With
    
    ' 4. 添加文本框（位置、大小、内容可自定义）
    Dim txtBox As Shape
    Set txtBox = targetSheet.Shapes.AddTextbox( _
        Orientation:=msoTextOrientationHorizontal, _
        Left:=targetSheet.Range("A1").Left + 10, _
        Top:=targetSheet.UsedRange.Height + 20, _
        Width:=300, _
        Height:=50)
    
    With txtBox.TextFrame2.TextRange
        .Text = "注意：此清单为打印专用，请勿修改原始数据"
        .Font.Name = "Arial"
        .Font.Size = 10
        .Font.Bold = msoTrue
        .Fill.ForeColor.RGB = RGB(255, 0, 0) ' 设置字体为红色
    End With
    ' 设置文本框无填充、无轮廓，避免遮挡内容
    txtBox.Fill.Visible = msoFalse
    txtBox.Line.Visible = msoFalse
    
    ' 重新保护工作表（如果之前有设置保护的话）
    If targetSheet.ProtectContents = False Then
        targetSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub

怎么用这段代码？ #

你只需要在拆分工作表的宏里，每创建/生成一个新的车间工作表后，调用这个子过程就行，比如：

' 假设你拆分后得到了新工作表newSheet
FormatWorksheetForPrinting newSheet

可自定义的细节提示： #

• 页眉的文字、字体样式可以修改PageSetup里的LeftHeader/CenterHeader/RightHeader参数
• 文本框的位置、大小、内容可以调整AddTextbox的参数和TextRange的设置
• 如果不需要强制适配1页宽，把.FitToPagesWide = 1改成.FitToPagesWide = False即可

这样每次拆分出的新工作表都会自动变成打印就绪的状态啦！

内容的提问来源于stack exchange，提问作者josiesprx