vb這段代碼怎麽實現在打印機上打印出“中國”二字？謝謝！

Private fnt As Integer

Private txt As Variant

Private dy As Variant

Private 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 DataPrint1_Click()

fnt = 16

Y = 450

X = 1000

txt = Text1

dy = prnt(X, Y, fnt, txt)

Y = 1450

X = 1000

txt = Text2

dy = prnt(X, Y, fnt, txt)

Y = 2450

X = 2500

txt = Text3

dy = prnt(X, Y, fnt, txt)

fnt = 12

Y = 450

X = 2500

txt = Text1

dy = prnt(X, Y, fnt, txt)

Y = 1450

X = 4000

txt = Text2

dy = prnt(X, Y, fnt, txt)

Y = 2450

X = 4000

txt = Text3

dy = prnt(X, Y, fnt, txt)

Printer.EndDoc

End Sub

參考上述代碼