vb打印功能全代码（vb打印九九乘法表代码）

今天给各位分享vb打印功能全代码的知识，其中也会对vb打印九九乘法表代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB怎么实现打印功能
• 2、vb实现打印功能具体点
• 3、vb打印代码
• 4、VB打印的代码如下图
• 5、高分求一段VB6.0的打印代码
• 6、vb中的打印代码

VB怎么实现打印功能

从应用程序中打印

Visual Basic 为打印正文和图形提供了三种技术。

可在窗体中建立所需要的输出，然后用 PrintForm 方法打印窗体。

Private Sub Command1_Click()

Me.PrintForm

End Sub

通过设置 Printers 集合中的缺省的打印机，可传送正文和图形到打印机。

...

可先传送正文和图形给 Printer 对象，再用 NewPage 和 EndDoc 方法打印。

Option Explicit

Private y As Integer

Private x As Integer

Private txt As String

Private fnt As Integer

Private dd As Variant

'打印函数

Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt As Variant)

Printer.CurrentX = x

Printer.CurrentY = y

Printer.FontSize = fnt

Printer.Print txt

End Function

Private Sub cmdPrint_Click()

fnt = 18

y = 300

x = 500

txt = "打印"

dd = prnt(x, y, fnt, txt)

Printer.EndDoc ' 打印完成。

End Sub

其它如数据查询等请参阅如下网址:

vb实现打印功能具体点

最方便同时也是最灵活的打印方式是直接利用VB的Printer对象，只要把平时用Print命令输出到窗体的内容直接发到Printer对象即可：

Printer.Print "要打印的内容放在这里"

Printer.Print "打印的内容可以分多行输出"

Printer.Print "也可以把打印内容放到变量中，比如后面的这个x"; x

Printer.PaintPicture LoadPicture("图片文件名"), 0, 0 '还可以直接在打印机中输出图片

Printer.Line (0, 0) - (3000, 2100) '还可以画线、画圆等等，跟屏幕输出是完全一样的

Printer.EndDoc '这个命令可以把上面要打印的内容真正发往打印机

vb打印代码

我转的: 说的是把GRIDE的内容都导到EXCEL表里,在打印出来.利用EXCEL打印，好处是能直接使用EXCEL的预览功能..

Private Sub cmdPrint_Click()

Dim intPrint As Integer

Dim xlApp As New Excel.Application

Dim xlBook As New Excel.Workbook

Dim xlSheet As New Excel.Worksheet

Set xlApp = Nothing

Set xlBook = Nothing

Set xlSheet = Nothing

intPrint = MsgBox("Be sure to print this record?", vbYesNo)

If intPrint = 6 Then

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open(App.Path "\temp.xls")

Set xlSheet = xlBook.Worksheets("Sheet1")

xlSheet.Range("C3").Value = "test……"

xlApp.Application.Visible = True

xlSheet.PrintPreview '预览

xlApp.DisplayAlerts = False '退出时不提示保存

xlBook.Close

xlApp.Quit

xlApp.DisplayAlerts = True

Set xlSheet = Nothing

Set xlBook = Nothing

Set xlApp = Nothing

MsgBox "Job done ..."

End If

End Sub

——————————————————————————————————

把xlSheet.Range("C3").Value = "test……"改为MSFlexGrid内容就好了……

VB打印的代码如下图

用VB可以直接使用对象 Printer 进行数据及图片的打印。

如：

'***初始化打印机

Printer.ScaleMode = 1

Printer.FontName = "仿宋_GB2312"

Printer.FontSize = 8

Printer.FontBold = False

'设置打印区域,四个 参数分别是打印区域的左上角及右下角坐标

' 这里以 A4 打印纸张大小为例，边框距各为2cm.

PrtLeftx=567*2

PrtLefty=567*2.0

PrtRightx=567*(21-2)

PrtLefty=567*(29.5-2)

'**打印线条

Printer.DrawWidth = 2

Printer.Line (PrtLeftx, PrtLefty)-(PrtRightx, PrtLefty)

Printer.DrawWidth = 1

' 打印字符串

Printer.Print "中国 China"

要打印窗体中TextBox 中的内容，将其赋给变量或直接打印都可以。

高分求一段VB6.0的打印代码

示例代码如下：

Printer.ScaleMode = vbMillimeters '单位为毫米

Printer.Width = 100

Printer.Height = 60

'Printer.PaperSize = 1

Printer.Print "hello world!"

Printer.EndDoc

说明：

Printer.Width = 100 设置纸的宽度Printer.Height = 60设置纸的高度，你可以修改成合适的值。

Printer.PaperSize = 1可以设置预定义的标准纸张。含义如下表：

常量 值 纸张

vbPRPSLetter 1 Letter, 8 1/2 x 11 in.

vbPRPSLetterSmall 2 Letter Small, 8 1/2 x 11 in.

vbPRPSTabloid 3 Tabloid, 11 x 17 in.

vbPRPSLedger 4 Ledger, 17 x 11 in.

vbPRPSLegal 5 Legal, 8 1/2 x 14 in.

vbPRPSStatement 6 Statement, 5 1/2 x 8 1/2 in.

vbPRPSExecutive 7 Executive, 7 1/2 x 10 1/2 in.

vbPRPSA3 8 A3, 297 x 420 mm

vbPRPSA4 9 A4, 210 x 297 mm

vbPRPSA4Small 10 A4 Small, 210 x 297 mm

vbPRPSA5 11 A5, 148 x 210 mm

vbPRPSB4 12 B4, 250 x 354 mm

vbPRPSB5 13 B5, 182 x 257 mm

vbPRPSFolio 14 Folio, 8 1/2 x 13 in.

vbPRPSQuarto 15 Quarto, 215 x 275 mm

vbPRPS10x14 16 10 x 14 in.

vbPRPS11x17 17 11 x 17 in.

vbPRPSNote 18 Note, 8 1/2 x 11 in.

vbPRPSEnv9 19 Envelope #9, 3 7/8 x 8 7/8 in.

vbPRPSEnv10 20 Envelope #10, 4 1/8 x 9 1/2 in.

vbPRPSEnv11 21 Envelope #11, 4 1/2 x 10 3/8 in.

vbPRPSEnv12 22 Envelope #12, 4 1/2 x 11 in.

vbPRPSEnv14 23 Envelope #14, 5 x 11 1/2 in.

vbPRPSCSheet 24 C size sheet

vbPRPSDSheet 25 D size sheet

vbPRPSESheet 26 E size sheet

vbPRPSEnvDL 27 Envelope DL, 110 x 220 mm

vbPRPSEnvC3 29 Envelope C3, 324 x 458 mm

vbPRPSEnvC4 30 Envelope C4, 229 x 324 mm

vbPRPSEnvC5 28 Envelope C5, 162 x 229 mm

vbPRPSEnvC6 31 Envelope C6, 114 x 162 mm

vbPRPSEnvC65 32 Envelope C65, 114 x 229 mm

vbPRPSEnvB4 33 Envelope B4, 250 x 353 mm

vbPRPSEnvB5 34 Envelope B5, 176 x 250 mm

vbPRPSEnvB6 35 Envelope B6, 176 x 125 mm

vbPRPSEnvItaly 36 Envelope, 110 x 230 mm

vbPRPSEnvMonarch 37 Envelope Monarch, 3 7/8 x 7 1/2 in.

vbPRPSEnvPersonal 38 Envelope, 3 5/8 x 6 1/2 in.

vbPRPSFanfoldUS 39 U.S. Standard Fanfold, 14 7/8 x 11 in.

vbPRPSFanfoldStdGerman 40 German Standard Fanfold, 8 1/2 x 12 in.

vbPRPSFanfoldLglGerman 41 German Legal Fanfold, 8 1/2 x 13 in.

以下两行用于打印：

Printer.Print "hello world!"

Printer.EndDoc

vb中的打印代码

最简单的，就是：

Me.PrintForm

否则，一两句话还说不清。

错误肯定是严重的！

For i = 0 To DataGrid1 - 1

你这个 DataGrid1 叫系统怎么理解？DataGrid1是这个网格控件的名字对吧？名字还可以减1啊？那么名字减1等于几呢？

你要这样打印结果的话，我告诉你要这样：DataGrid控件有列属性（Col）和行属性（Row），这样就可以获得某单元格的内容了：这样：

要定位到列和行，才能获得指定的单元格值：并且注意，行与列号都是从0开始编号！

DataGrid1.Col = 0

DataGrid1.Row = 0

Print DataGrid1.Text '这样就能获得首行首列单元格的内容

所以要获得全部内容，要使用循环。

但是，换个思路，你这个DataGrid控件里的数据，应该来自于记录集对象，那直接用对象的属性来获得就可以了呀！

vb打印功能全代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb打印九九乘法表代码、vb打印功能全代码的信息别忘了在本站进行查找喔。