VB中设置打印机从第几页打印到第几页??

2003-04-14 05:56:24 165 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB实现文本打印打印机属性设置[转] Printer 对象常数打印机颜色模式常数值描述 vbPRCMMonochrome 1 单色输出 vbPRCMColor 2 彩色输出双面打印常数值描述 vbPRDPSimplex 1 单面打印 vbPRDPHorizontal 2 双面水平打印 vbPRDPVertical 3 双面垂直打印打印方向常数值描述 vbPRORPortrait 1 文档打印以纸的窄边作顶部 vbPRO 阅读详情

...全文

斑马打印机连三菱PLC与VB.NET 一，通过三菱PLC连斑马打印机 1）通过RS指令发送ZPL II （zebra的编程语言）到打印机。通讯方式为RS232。注意：RS指令要一直通电，通过脉冲触发M8122(发送请求)，就能将指令传到打印机打印。 2）在三菱的D Memoryz中写入字符(ZPL II指令)，可以用复制/粘贴TXT文档中的指令。 3）ZM400打印机的有Z/R/E存储区,分别为EPR 阅读详情

cjwcyc

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

xo2000 2003-04-15

打赏
举报

Daniel0318 2003-04-14

打赏
举报

落伍者 2003-04-14

打赏
举报

Option Explicit

Private Sub Command1_Click()
Dim myDatabase As Database
Dim rsMyTable As Recordset
Dim i As Integer
Dim j As Integer
Dim startpage As Integer

' enable the page range selection option
CommonDialog1.Max = 3

' set the last page to be printed
CommonDialog1.ToPage = 3

' clear flags before showing printer dialog box
CommonDialog1.Flags = 0

' show the printer dialog box
CommonDialog1.ShowPrinter

' Enter the page number from which to start printing
startpage = CommonDialog1.FromPage

' set the font size. This will give 42 lines per page
Printer.FontSize = 18

' replace with your path to the nwind.mdb
Set myDatabase = OpenDatabase("nwind.mdb")

Set rsMyTable = myDatabase.OpenRecordset("Customers")

rsMyTable.MoveFirst

If (CommonDialog1.Flags And cdlPDPageNums) <> 0 Then
MsgBox " Printing pages " & CommonDialog1.FromPage & " to " & _
CommonDialog1.ToPage
Select Case startpage
Case 1

Case 2
' skip page 1
For i = 1 To 42
rsMyTable.MoveNext
Next

Case 3
' skip 2 pages
For i = 1 To 84
rsMyTable.MoveNext
Next
End Select

If startpage <> 0 Then
For j = startpage To CommonDialog1.ToPage
For i = 1 To 42
If rsMyTable.EOF Then Exit For
Text1.Text = Text1.Text & rsMyTable!CompanyName & vbCrLf
Printer.Print rsMyTable!CompanyName
rsMyTable.MoveNext
Next
Printer.NewPage
Next
Printer.EndDoc
End If

ElseIf (CommonDialog1.Flags And cdlPDSelection) <> 0 Then

rsMyTable.MoveLast
rsMyTable.MoveFirst
For i = 1 To rsMyTable.RecordCount
Text1.Text = Text1.Text & rsMyTable!CompanyName & vbCrLf
rsMyTable.MoveNext
Next
MsgBox "Select text to be printed"
Else
For i = 1 To rsMyTable.RecordCount
Text1.Text = Text1.Text & rsMyTable!CompanyName & vbCrLf
rsMyTable.MoveNext
Next
Printer.Print Text1.Text
Printer.EndDoc
MsgBox "Printing all pages"
End If
End Sub

Private Sub Command2_Click()
Printer.Print Text1.SelText
End Sub

Private Sub Form_Load()
Command1.Caption = "Select Printing Option"
Command2.Caption = "Print selected text"
End Sub

VB中设置打印机从第几页打印到第几页??

相关推荐