锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net打印重复 c# bartender 重复打印( 二 )

IT技术循环


Dim PageCounter As Integer
Dim MyRecordset As ADODB.Recordset
Const FooterTopPosition = 24
Set MyRecordset = recRecordset
PageCounter = 1
' 设 置Printer 对 象 坐 标 的 度 量 单 位 为 厘 米
Printer.ScaleMode = vbCentimeters
LeftMargin = 1.5
HeadTopPosition = 2
' 定 义 打 印 页 左 上 角 的X 坐 标 和Y 坐 标vb.net打印重复 ，  通 过 改 变ScaleLeft 和ScaleTop 的 值vb.net打印重复，可 改 变 打 印 页 的 左 边 距 和 上 边 距
Printer.ScaleLeft = -LeftMargin
Printer.ScaleTop = -HeadTopPosition
Printer.Font.Name = "Times New Roman"
Printer.Font.Size = 12
Printer.Print "音像店顾客管理系统"
Printer.Print strType
Printer.Print ""
If MyRecordset.EOF And MyRecordset.BOF Then
MsgBox "No Record At Presend!", vbCritical And vbOKOnly, "Print Error"
Exit Sub
End If
MyRecordset.MoveFirst
Do Until Printer.CurrentYFooterTopPosition
'Print the fields of the recordset in sequence
For FieldNum = 0 To MyRecordset.Fields.Count - 1
Printer.Print MyRecordset.Fields(FieldNum).Name_
": "_
MyRecordset.Fields(FieldNum).Value
If Printer.CurrentYFooterTopPosition Then
Printer.CurrentX = 8
Printer.Print "Page: "PageCounter
' 创 建 多 页 文 档
Printer.NewPage
PageCounter = PageCounter + 1
End If
Next FieldNum
MyRecordset.MoveNext
If MyRecordset.EOF Then Exit Do
' 在 记 录 之 间 空 一 行
Printer.Print ""
Loop
'Print the Page number as a footer
Printer.CurrentX = 8
Printer.CurrentY = FooterTopPosition
Printer.Print "Page: "PageCounter
' 将 输 出 送 到 打 印 机
Printer.EndDoc
End Sub
【vb.net打印重复 c# bartender 重复打印】关于vb.net打印重复和c# bartender 重复打印的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：抖音平台都有什么软件直播，抖音平台都有什么软件直播卖货

下一篇：电脑怎么查京东商品信息，电脑京东怎么查询订单