打印VBA窗体时Frame名称缺失，代码存在什么问题？

核心问题 #

你当前代码的主要问题有两个：

1. PrintForm方法的局限性：VBA的PrintForm默认只打印窗体客户区内的控件内容，Frame的标题（Caption属性）属于控件的非客户区域，不会被PrintForm捕捉打印。
2. 冗余变量未使用：代码中定义了frameNavn变量，但全程没有调用这个变量，属于无效代码。

解决方案 #

方法1：添加Label控件替代Frame标题（最简单） #

在Frame控件的上方添加一个Label控件，将Label的Caption属性设置为你需要的Frame名称（比如"Sammenstilling"），并调整Label的位置、字体、背景色，使其和Frame的标题样式一致。这样PrintForm就能将Label的内容一起打印出来。

方法2：修改代码，手动绘制标题到打印内容中（进阶） #

如果不想额外添加控件，可以通过API获取窗体的设备上下文，手动绘制Frame的标题。示例代码如下：

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long

Private Sub Udskriv_Click()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim oldScreenUpdating As Boolean
    oldScreenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    ' 先打印窗体
    Sammenstilling.PrintForm
    
    ' 获取窗体DC，手动绘制Frame标题
    Dim hdc As Long
    hdc = GetDC(Sammenstilling.hWnd)
    ' 调整x,y坐标到Frame标题的位置，需根据实际布局修改
    TextOut hdc, Sammenstilling.Sammenstilling.Left + 5, Sammenstilling.Sammenstilling.Top - 15, "Sammenstilling", Len("Sammenstilling")
    ReleaseDC Sammenstilling.hWnd, hdc
    
    Application.ScreenUpdating = oldScreenUpdating
    ws.Activate
End Sub

注意：API方法需要根据你的窗体和Frame的实际位置调整坐标，不同系统的字体渲染可能存在差异。

代码优化建议 #

删除未使用的frameNavn变量，精简代码：

Private Sub Udskriv_Click()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim oldScreenUpdating As Boolean
    oldScreenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    Sammenstilling.PrintForm
    
    Application.ScreenUpdating = oldScreenUpdating
    ws.Activate
End Sub

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