VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} fz6hpart 
   Caption         =   "ActiveReport1"
   ClientHeight    =   5895
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11595
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   20452
   _ExtentY        =   10398
   SectionData     =   "fz6hpart.dsx":0000
End
Attribute VB_Name = "fz6hpart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
   fz6hpart.Printer.PaperSize = bgjpapersize
   If bq6hprintflag = 1 Then
     fz6hpart.Printer.PrintDialog
   End If
End Sub

Private Sub ActiveReport_ReportStart()
  'Printer.PaperWidth = 106 * stunit  '紙張高
 ' Printer.PaperHeight = 51 * stunit   '紙張寬
 ' fz6hpart.Printer.PaperSize = bgjpapersize
If bq6habnum >= 4 Then
     Field5.Left = 15
     Field5.Width = 2790
     Field12.Left = 3090
     Field12.Width = 2790
    Else
     Field5.Left = 1065
     Field5.Width = 1750
     Field12.Left = 4125
     Field12.Width = 1750
  End If
End Sub

Private Sub Detail_AfterPrint()
  bq6hprint = 0
End Sub
Private Sub setjpnull()
Dim i As Integer
 For i = 1 To 14  '清空數(shù)據(jù)
   Me.Detail.Controls("Field" & i).Text = ""
 Next  '

 For i = 0 To 1
  '6#封裝標(biāo)簽當(dāng)有尺寸時(shí)顯示　FUSE，沒(méi)有尺寸時(shí)不顯示FUSE
  ' 2006.06.02 modify the code
   If bq6hcc <> "" Then
     Me.Detail.Controls("Field" & 1 + i * 7).Text = bq6htype & "  " & bq6hcc & "  " & "FUSE"
    Else
     Me.Detail.Controls("Field" & 1 + i * 7).Text = bq6htype
   End If
   Me.Detail.Controls("Field" & 2 + i * 7).Text = bq6hratings
   Me.Detail.Controls("Field" & 3 + i * 7).Text = bq6hrating & "  " & bq6hinterrupting
   Me.Detail.Controls("Field" & 4 + i * 7).Text = bq6hpn
   Me.Detail.Controls("Field" & 5 + i * 7).Text = bq6hab
   Me.Detail.Controls("Field" & 6 + i * 7).Text = bq6hqty
   Me.Detail.Controls("Field" & 7 + i * 7).Text = bq6hlotno
 Next
End Sub

Private Sub Detail_Format()
    Call setjpnull
End Sub