'******打印函数Prnt1的参数说明***** ' X 字体位置的横坐标。 * ' Y 字体位置纵坐标。 * ' font 打印字体的大小。 * ' txt 打印的文本。 * ' color 字体的颜色。 * '********************************** Function prnt1(X As Integer, Y As Integer, font As Single, txt As String, color As String) Printer.CurrentX = X Printer.CurrentY = Y Printer.FontBold = False Printer.fontsize = font Printer.ForeColor = color On Error Resume Next Printer.Print txt End Function例如:DD = prnt1(x, y, 8, "" & res(0) & "", vbBlack) 就是XY坐标麻烦点,但是算好了比水晶报表好用.
Printer.PaintPicture DataGrid1.CaptureImage(), 200, 200
Printer.EndDoc
'******打印函数Prnt1的参数说明*****
' X 字体位置的横坐标。 *
' Y 字体位置纵坐标。 *
' font 打印字体的大小。 *
' txt 打印的文本。 *
' color 字体的颜色。 *
'**********************************
Function prnt1(X As Integer, Y As Integer, font As Single, txt As String, color As String)
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.FontBold = False
Printer.fontsize = font
Printer.ForeColor = color
On Error Resume Next
Printer.Print txt
End Function例如:DD = prnt1(x, y, 8, "" & res(0) & "", vbBlack)
就是XY坐标麻烦点,但是算好了比水晶报表好用.