bfz6hrep.dsr

来自「用于电子行业打印复杂报表格式和不干胶标签」· DSR 代码 · 共 68 行

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


Private Sub ActiveReport_ReportStart()
 ' Printer.PaperWidth = 106 * stunit  '纸张高
 ' Printer.PaperHeight = 51 * stunit   '纸张宽
 ' bfz6hrep.Printer.PaperSize = bgjpapersize
End Sub

Private Sub Detail_AfterPrint()
   bq6hprint = 0
End Sub

Private Sub setjpnull()
Dim i, kgnum As Integer
Dim tmpdy, tmpdl As String
On Error Resume Next
 For i = 1 To 10  '清空数据
   Me.Detail.Controls("Field" & i).Text = ""
 Next
 
tmpdy = "": tmpdl = ""
kgnum = InStr(bq6hratings, " ")
For i = 1 To kgnum
  tmpdy = tmpdy & Mid(bq6hratings, i, 1)
Next
For i = kgnum To Len(bq6hratings)
  tmpdl = tmpdl & Mid(bq6hratings, i, 1)
Next

 For i = 0 To 1
   Me.Detail.Controls("Field" & 1 + i * 5).Text = bq6hcc & "  " & "FUSE"
   Me.Detail.Controls("Field" & 2 + i * 5).Text = bq6htype
   'Me.Detail.Controls("Field" & 3 + i * 5).Text = bq6hratings
   Me.Detail.Controls("Field" & 3 + i * 5).Text = tmpdy & "     " & tmpdl
   Me.Detail.Controls("Field" & 4 + i * 5).Text = bq6hqty
   Me.Detail.Controls("Field" & 5 + i * 5).Text = bq6hlotno
 Next

End Sub

Private Sub Detail_Format()
  Call setjpnull
End Sub