网络打印源码vb6_vb调用打印机的代码

文章目录：

• 1、vb6 怎样获取网页源码
• 2、我想问一下怎么写VB6代码来选择codesoft中的打印机
• 3、什么是vb6代码
• 4、vb6如何使用网络打印机打印
• 5、VB6怎样制做打印及预览？

vb6 怎样获取网页源码

这个用INET控件比较简单

最简便的方法：

首先添加一个INET控件，命名为INET1

添加一个按钮控件，command1

添加一个TEXT控件,用来存放源码

private sub command1_click()

Text1.Text = Inet1.OpenURL("")

end sub

我想问一下怎么写VB6代码来选择codesoft中的打印机

不知道你用什么来打印！~

报表还是打印窗体！~

vb代码可以设置机器的默认打印机 然后直接打印 想用哪个就设置哪个！~

也可以用api通过打印机名来调用你想用的打印机！~

如果你非要使用那个软件 那你等别人回答你吧！~ 估计是不会有的！~

什么是vb6代码

同意gujin170的说法

vb6代码就是一个用 microsoft visual basic 6.0 编写 的程序 的源代码阿

vb6如何使用网络打印机打印

向打印机发送ASCII码打印控制符，参考下列语句用法：

Private Sub Command1_Click()

Open "LPT1 " For Output As #1

For I = 1 To 5

Print #1, Chr(10) '控制换行，同Chr(13)

Next

Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符

Print #1, Chr(14); "ABCDEFGHIJKL " '宽体每行40字符

Print #1, Chr(27); "IA " '恢复正常字体

Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符

Print #1, Chr(27); "IB "; "ABCDEFGHIJKL " '横向扩展每行40字符

Print #1, Chr(27); "IC "; "ABCDEFGHIJKL " '纵向扩展每行80字符

Print #1, Chr(27); "E "; "ABCDEFGHIJKL " '加重黑体

Print #1, Chr(27); "F " '取消加重黑体

Print #1, Chr(27); "IA " '恢复正常字体

Print #1, Chr(27); "4 "; "ABCDEFGHIJKL " '斜体

Print #1, Chr(27); "5 " '取消斜体

Print #1, Chr(27); "0 "; "ABCDEFGHIJKL " '打印每吋6行改8行

Print #1, Chr(27); "1 "; "ABCDEFGHIJKL " '重置行间隔为7/72

Print #1, Chr(27); "2 "; "ABCDEFGHIJKL " '重置行间隔为1/6

Print #1, Chr(27); "IA "; "ABCDEFGHIJKL " '正常字体每行80字符 "

'Print #1, Chr(12) '控制换页

Close #1

End Sub

参考上述代码,

使用 Open "LPT1 " For Output As #1 语句打开打印机

使用 Print #1, "ABCDEFGHIJKL " 语句打印 "ABCDEFGHIJKL "

WIN98下能打印中文，WINXP下能打印英文字符及数字，打印机为EPSON针打

代码中CHR()表示打印控制符(各打印机有不同),CHR()后的 " "内属控制打印效果.

打印到那,纸张停走,不象用PRINTER对象即使打印一行,一张纸照样走完.

VB6怎样制做打印及预览？

我给两个方案

1.直接输出到EXCEL吧,同时可以用代码控制EXCEL的各种设置,做到在EXCEL直接预览就是你要的效果!

2.事先用EXCEL做好一个模板文件,然后把这个文件加入到程序的资源中,使用时释放该模板,然后把数据直接输出到相应单元格.

个人推荐以方法2为主,1为辅,效果很好,不要纠结EXCEL,现在有几台电脑没这玩意的?另外,WPS的表格也通用哦!