用TEXTOUT函数输出至打印机实再文字精确定位？

[程序员老干部]

比如：
输入的文字：中国必胜 位置：在A4上居中

我用的代码：
dim s$
s="中国必胜"

TextOut hDC, 100, 100, s, LenB(s)
此时打印出的位置还可以，但如何居中呢？

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

x ,y是以哪种刻度定义坐标的呢？

[homezj]

Private Declare Function SetTextAlign Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long

SetTextAlign hdc,2

[程序员老干部]

如何改变X，Y的值呢，请给出代码，谢谢
我试了一下，x=(printer.scalewidth-printer.textwidth(s))/2，但不行，呵

[xiaoxiaoP]

x,y ------------ Long，绘图的起点，采用逻辑坐标，单位是缇。

对于居中，改变x,y值吧。