急,在线等！！！请高手帮忙 WritePrinter 打印

Question

dim str as string 
str= Chr(28) & Chr(87) & Chr(1) & "中国" & "1005" & vbCrLf 
lReturn = WritePrinter(lhPrinter, ByVal str, LenB(StrConv(str, vbFromUnicode)), lpcWritten) 上面的例子 
Chr(28) & Chr(87) & Chr(1) 这个字体只能设为4倍角大小 
我想把字体，再放大一倍(设为8倍角大小)应该怎设？

Answer 1

端口打印没有预览的 
POs机的