请各位大佬帮忙看看我这个报表打印哪里出了问题，只有框架，数据写不进去

 Option Compare Database

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim Frm As Form

    On Error Resume Next

    Set Frm = Forms!SF_Plating_Reference_Parameter(PR)

    With Frm
        Me.ITEMCODE = .ITEMCODE
        Me.TxtMachine = .TxtMachine
        Me.TxtLine = .TxtLine
        Me.RevNo = .RevNo
        Me.JigNo = .JigNo
        Me.Padsize = .Padsize
        Me.LeadCount = .LeadCount
        Me.Package = .Package
        Me.PltType = .PltType
        Me.FrameDesign = .FrameDesign
        Me.Alloy = .Alloy
        Me.MatType = .MatType
        Me.ThicknessPlating = .ThicknessPlating
        Me.Brightness = .Brightness
        Me.RMWidth = .RMWidth
        Me.SealedUpUnit = .SealedUpUnit
        Me.Pitch = .Pitch
        Me.TxtAreaSpec = .TxtAreaSpec
        Me.CUSTOMER = .CUSTOMER
        Me.ProductDrawNo = .ProductDrawNo
        Me.SingleUnitNumber = .SingleUnitNumber
        Me.CopperCoarsening = .CopperCoarsening
        Me.Singlelength = .Singlelength
        Me.TxtJigNo = .TxtJigNo
        Me.TxtAreaplatNo = .TxtAreaplatNo
        Me.sheet_Model01 = .sheet_Model01
        Me.sheet_Model02 = .sheet_Model02

         Me.REMARK = .REMARK

        TxtPrintDate = Date
    End With
   
End Sub