打印问题：能不能在同一行打印出不同的字体？？？？

Question

Printer.Font = "宋体"
   Printer.FontSize = 14
   Printer.CurrentX = 30
   Printer.CurrentY = 50
   Printer.Print "晨风。吹拂"
   Printer.EndDoc能不能把“晨风”打印成30号字体，而“吹拂”打印成15号字体？？

Answer 1

Printer.Font = "宋体"
   Printer.FontSize = 30
   Printer.CurrentX = 30
   Printer.CurrentY = 50
   Printer.Print "晨风";
   Printer.FontSize = 15
   Printer.Print "吹拂"
   Printer.EndDoc

Answer 2

Printer.Font = "宋体"
   Printer.FontSize = 30
   Printer.CurrentX = 30
   Printer.CurrentY = 50
   Printer.Print "晨风";
   Printer.FontSize = 15
   Printer.CurrentY = Printer.CurrentY + 250 '调整打印的位置~~
   Printer.Print "吹拂"
   Printer.EndDoc

Answer 3

to wlcs(中华人民共和国“无产阶级”的光荣代表):
再MSDN上好好看看PRINTER对象吧，很简单的。

Answer 4

给你个答案：
   dim THigh1 as integer
   dim THigh2 as integer   Printer.Font = “宋体”
   Printer.FontSize = 12
   Printer.CurrentX = 10
   Printer.CurrentY = 10
   THigh1 = Printer.TextHeight("1")
   Printer.Print "晨风";
 
   Printer.FontSize = 10
   THigh2 = Printer.TextHeight("1")
   Printer.CurrentX = 20
   Printer.CurrentY = Printer.CurrentY + (THigh1 - THigh2)
   Printer.Print “吹拂”