VB 编写程序 打印圣诞树图案

tab表示需要先空几格再开始print

Private Sub Command1_Click()

'第一个三角形树叶3行

For i = 1 To 3

Print Tab(20 - j);

For j = 1 To 2 i - 1

Print "▲";

Next j

Next i

'第二个三角形树叶5行

For m = 1 To 5

Print Tab(20 - n);

For n = 1 To 2 m - 1

Print "▲";

Next n

Next m

'第三个三角形树叶7行

For f = 1 To 7

Print Tab(20 - g);

For g = 1 To 2 f - 1

Print "▲";

Next g

Next f

'树根,4行,每行打印2个三角形

For k = 1 To 4

Print Tab(19); "▲▲"

Next k

End Sub

直接用Printer控件即可

Set Printer = Printers(0) '设定打印机

PrinterScaleMode = vbMillimeters '设定单位毫米

Printerfontname = "宋体" '设定字体

PrinterFontsize = 10

PrinterFontBold = False

PrinterFontItalic = False

PrinterLine (10, 10)-Step(1, 1) '划线从坐标10,10到11,11

PrinterCurrentX = 10 '设定文字的左边距

PrinterCurrentY = 10 '设定文字的上边距

PrinterPrint "文字" '输出文字，输出后别忘了重新设定边距

PrinterNewPage '新建一页

PrinterEndDoc '打印机输出

Printer控件属性也不是太多，花点时间研究一下，肯定能满足你的需求的。

打字不易，如满意，望~~。

只要你能在picturebox上或者form上熟练地绘图和打印文字,就可以随时打印

printer对象的绘图\打印文字和上面的方法是模一样的

只不过最后加一个enddoc输往打印机

朋友，说话友好些嘛，人不知不为过啦

如果确实要实现虚拟打印机，那么要用到虚拟驱动器技术，这不是VB等能实现的，要用C语言编写vxd驱动才行。

确实如果你想练习编写打印机程序，系统没有安装一个打印机程序时，printer对象用不了，这时用一种变通的办法，你去“添加打印机”对话框中随便添加一个打印机，不管什么型号的都可以，然后就可以在VB里使用Printer对象了。Windows有Spooling(假脱机打印)技术，VB是不知道是否有打印机连接的，这是不是你所谓的“虚拟打印机”呢？不过想用Printer对象一定要这么做，不然用不了

还不明白直接留言给我

Private Sub Command1_Click()

Dim i As Integer

For i = 0 To 20

If i Mod 2 <> 0 Then Print i

Next i

End Sub

VB提供了多个网格控件，如DBGrid，FlexGrid等，在程序中可以用来显示、录入数据，而且可以直接显示数据库里的数据，但是这些网格控件没有提供打印功能，用这些网格控件只能在屏幕上显示表格数据，这是网格控件功能上的一个缺憾。

如何才能把网格控件显示的表格数据从屏幕上搬到打印机上呢使用VB

60提供的报表生成器，就能实现数据报表的生成和打印。本文将介绍打印数据报表的几个技巧。

数据报表设计器

Microsoft数据报表设计器(Microsoft

Data

Report

designer)是一个多功能的报表生成器，其特色是创建联合分层结构报表。同数据源(Data

Environment

designer数据环境设计器)一起使用，可以从几个不同的相关表创建报表。除创建可打印报表之外，还可以将报表导出到

HTML

或文本格式文件中。

采用如下方法调用数据报表设计器，单击[工程]→[添加

Data

Report]，向工程中添加一个数据报表设计器，在一个工程中可以添加多个数据报表设计器，用于设计多个报表。如果“添加

Data

Report”没有在“工程”菜单上列出，则单击[部件]，出现“部件”对话框，单击“设计器”选项卡。并单击[Data

Report]把设计器添加到菜单上。

在“工程”菜单上只列出四种ActiveX设计器，其余的设计器放在“工程”菜单的“更多

ActiveX

设计器”子菜单中。

有关上述控件的使用方法请参阅VB的联机帮助。

实现数据报表打印

我们摸索出了几个VB的联机帮助中没有介绍的技巧，但是在编程中非常实用，供大家参考。

(一)数据源动态选择数据库文件

我们为数据环境设计器(Data

Environment

designer)的“Connection1”设置相关数据库时，把数据源定在了一个数据库文件上，这样就不能实现一个数据报表设计器动态选择相关数据库。以下代码的加入将实现数据源的动态选择。实现过程如下:

进入DataEnvironment1的代码窗口。在DataEnvironment1的Initialize()事件中加入代码:

Private

Sub

DataEnvironment_Initialize()

′建立数据源

Dim

sjklj

As

String

sjklj

=

AppPath

+

〃\〃

+〃

Bibliomdb〃

′变量sjklj将存放数据库文件“Bibliomdb”

的路径

sjklj=〃Provider=MicrosoftJetOLE

DB351;

-

Persist

Security

Info=False;Data

Source=〃+sjklj

′设置相关数据源

DataEnvironment1Connection1ConnectionString

=sjklj

End

Sub

这样我们就可以使用代码在程序中随时为数据环境设置数据源了。

(二)如何卸载数据源

使用上述方法设置数据库，如果再修改为另一个数据库，程序依然调用第一次设置的数据库，这是为什么呢

关于这个问题的解决方法在VB的联机帮助中没有介绍。经过细心研究我们考虑出了一种解决方法:我们需要先将原来的数据源卸载，再使数据环境设计器与修改后的数据库相关。对于卸载一个控件，VB提供了Unload方法，对于数据环境设计器这种方法同样适用。我们只需在实现显示数据报表的事件过程中的Show语句前加入:Unload

DataEnvironment1即可。

(三)实现对报表打印边距的编辑

数据报表设计器提供给编程者编辑打印报表边距的功能。DataReport有两个属性:

1LeftMargin属性:编辑打印报表的左边距;

2TopMargin属性:编辑打印报表的上边距。

同样在Show语句前加入以下代码便可实现对报表的左边距和上边距进行编辑了:

lm

=

InputBox(〃请输入打印左边距(mm)〃,

〃打印

-左边距〃,

〃25〃)

tm

=

InputBox(〃请输入打印上边距(mm)〃,

〃打印

-上边距〃,

〃25〃)

DataReport1LeftMargin

=

lm

567

DataReport1TopMargin

=

tm

567

运行程序，单击[打印]按钮时，窗口上将出现一消息框，提示你输入边距数值，单位是毫米，如果用户不输入则程序默认边距为25mm。

以上就是关于VB 编写程序 打印圣诞树图案全部的内容，包括:VB 编写程序 打印圣诞树图案、VB打印的问题、用vb怎么编写一个虚拟打印机程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！