# Re: VB列表时在同一行变换字体大小

Posted by 老怪 on March 01, 1999 at 08:47:48:

In Reply to: VB列表时在同一行变换字体大小 posted by 怪猫 on February 25, 1999 at 13:36:31:

: 使用printer.print 时能不能在同一行变换字体大小
: 请大家参祥参祥...........=^_^=

Private Sub Form_Click()
Dim oldX As Single, oldY As Single
Dim PString As String

oldY = CurrentY
oldX = CurrentX
FontSize = 14
CurrentY = ScaleY(30, vbPixels, Me.ScaleMode) - TextHeight(PString)
PString = "我们"
Print PString
oldX = oldX + TextWidth(PString)

FontSize = 10
CurrentX = oldX
CurrentY = ScaleY(30, vbPixels, Me.ScaleMode) - TextHeight(PString)
PString = "想要"
Print PString
oldX = oldX + TextWidth(PString)

CurrentX = oldX
FontSize = 18
CurrentY = ScaleY(30, vbPixels, Me.ScaleMode) - TextHeight(PString)
PString = "出去玩"
Print PString

End Sub

Follow Ups: