锐客网

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

vb.net打印重复 c# bartender 重复打印

IT技术循环

vb.net Document_PrintPage打印多行文本比如vb.net打印重复：
Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e AsSystem.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)
e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)
e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)
e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)
也就是分次用不同坐标和不同vb.net打印重复的字体来打印各变量 。画线用vb.net打印重复：
e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2) 。
具体坐标数值自己用尺量出vb.net打印重复 ， 再换算 。
vb.net 打印问题可以将打印机默认打印设置改为黑白打印 ， 如果打印对象是RGB配色，打印机驱动转换为CMYK颜色时 ， 黑色都是由彩色墨水组成的
2.可以试一下图片从一个标准灰度图片格式化而来，这样图片自身只有黑白色，也许可以
VB.NET 打印问题 。先拖过来控件PrintDocument1，然后双击PrintDocument1，在它的PrintPage事件中加入代码如下：
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
dim a as String
a="abcd"
Dim mypen As Pen = New Pen(Color.Blue, 2)
e.Graphics.DrawString(a, New Font("宋体", 20), New Pen(Color.Black, 1).Brush, 30, 30)
End Sub
调用下面语句可直接用默认打印机打印出来：
PrintDocument1.Print()
vb.net datagridview显示出来的东西重复在绑定之前使用 Clear
或者设定 ItemsSource = nullvb.net打印重复；
vb.net 数组中的重复项我还在床上，就只给你思路吧
我是自己写了个函数，将数组传入并返回一个新数组列表
子函数中，先将数组排序sort函数，然后有两个循环，外循环从0到Length，变量i，内循环从i到Length，判断第i个数是否与包括自身的后续数相同 ， 相同就有变量加1 ， 内循环结束条件是找到第一个不同的数，并将外循环i复植为内循环中第一个不同的数的下表 。。。
这个是思路 ， 如果不能理解再再追加我给你代码，不过建议自己试试
你看写这个，和你的要求差不多 。。。;oldq=1
有程序的~~~你可以参考下~~~
关于VB.NET编制打印程序 ， 打印出来页面内容总是重叠在一起的问题参考vb.net打印重复：
把执行SQL语句后得到vb.net打印重复的记录集逐条（含字段名）显示在LISTVIEW控件中
'----------------------------------------------------------------
Public Sub ListUpdate(ByRef rs As Recordset, ByRef lv As ListView)
Dim head As ColumnHeader, Item As ListItem
Dim i As Integer, j As Integer
Dim lvWidth As Integer
lvWidth = lv.Width
'初始化LISTVIEWvb.net打印重复的某些属性
lv.View = lvwReport
lv.GridLines = True
lv.FullRowSelect = True
lv.ListItems.Clear
lv.ColumnHeaders.Clear
For i = 0 To rs.Fields.Count - 1
Set head = lv.ColumnHeaders.Add
head.Text = rs.Fields(i).Name
head.Width = lvWidth / rs.Fields.Count
Next
For j = 1 To PERPAGE
If rs.EOF Then Exit For
Set Item = lv.ListItems.Add
Item.Text = ""rs.Fields(0).Value
For i = 1 To rs.Fields.Count - 1
Item.SubItems(i) = ""rs.Fields(i).Value
Next
rs.MoveNext
Next
End Sub
' 打印
Public Sub PrintRecordset(ByRef recRecordset As Recordset, ByVal strType As String)
Dim LeftMargin As Integer
Dim HeadTopPosition As Integer
Dim FieldNum As Integer

推荐阅读


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

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