vb上能做自由调格式的打印格式马？用什么控件？

[yongmei123]

vb上能做自由调格式的打印格式马？用什么控件？

[zdingyun]

你需调何格式？一般PRINTER对象能改变字号字体颜色位置等。

[yongmei123]

我想做个套大打印发票，可能会遇到不同的发票什么的，或在不同的打印机上，需要调一下格式的位置，字段的位置

[zdingyun]

在进行数据查询并赋值给变量后，对不同打印发票可用
SELECT CASE 条件

END SELECT
语句对应不同要求实施打印。
至于不同打印机设置可对：
Printer 对象和 Printers 集合
使用 Printer 对象可以实现与系统打印机的通讯（最初是缺省系统打印机）。
用 Printers 集合可获取有关系统上所有可用打印机的信息。
语法
Printer
Printers(index)
index 所在处表示从 0 到 Printers.Count-1 之间的整数。
根据Printers(index)来作选择。

请参考以下的定位打印代码：
Option Explicit
Dim x As Integer
Dim y As Integer
Dim fnt As Byte
Dim txt As String
Dim 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 Command1_Click()'打印字符串
Printer.FontSize = 36
Printer.Print "This is the first line of text in a pair."
Printer.Print "This is the second line of text in a pair."
Printer.EndDoc
End Sub


Private Sub Command3_Click()'打印文本内容
fnt = 16
x = 100
y = 100
txt = Text1
dd = prnt(x, y, fnt, txt)
Printer.EndDoc
End Sub

Private Sub Form_Load()
Text1 = "打印"
End Sub

[yongmei123]

谢谢各位的解答！请问有调用控件的方式马？直接向调用电子表格一样，自由设置格式，放上参数就可以对应数据

[cangwu_lee]

EXCEL

[frankwong]

比较难,很难做到这么专业