System.Drawing.Printing.PaperSize ps = new System.Drawing.Printing.PaperSize("Prepay",15,16)
我见过的VB 程序,仅供参考 private sub fileprint() Dim RetVal Open App.Path + "\print1" For Output As #1 Print #1, Chr(28) + Chr(38) '//好像很重要 Print #1, "我是星云" Print #1, "I am xingyunzt" Close #1 RetVal = Shell(App.Path + "\zsl.bat", 0) end subzsl.bat 只有一行 type print1>prn
private sub fileprint()
Dim RetVal
Open App.Path + "\print1" For Output As #1
Print #1, Chr(28) + Chr(38) '//好像很重要
Print #1, "我是星云"
Print #1, "I am xingyunzt"
Close #1
RetVal = Shell(App.Path + "\zsl.bat", 0)
end subzsl.bat 只有一行
type print1>prn