把一段文字输出，而且要能够控制行间距，该怎么办？谢谢！急！！！！！

Question

把一段文字输出，而且要能够控制行间距，该怎么办？谢谢！急！！！！！

Answer 1

用Printer对象的currentY属性可以自由控制每行的位置

Answer 2

哦，对了，忘了问，输出到哪。
如果是到打印机，按我刚才的回复。
如果到窗体， 还是用currenty控制。然后直接写print语句

Answer 3

这儿有一个使用设备场景的例子，可供参考。它的作用是在文本框中画一个圆。作者是XINGOption ExplicitPrivate Declare Function GetDC& Lib "user32" (ByVal hwnd As Long)
Private Declare Function Ellipse& Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)
Private Declare Function ReleaseDC& Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long)Private Sub Form_Load()
   Text1.Text = ""
End SubPrivate Sub Text1_Click()
   Dim TextDC As Long
   
   TextDC = GetDC(Text1.hwnd)       
   Ellipse TextDC, 0, 0, 100, 100      
   ReleaseDC Text1.hwnd, TextDC     
End Sub