1,451
社区成员
发帖
与我相关
我的任务
分享
Public Function PrintMshflexgrid(objtoprint As Object, Optional title As String = "", Optional tFontSize As Single = 12, Optional alignment As AlignmentConstants = vbLeftJustify, Optional ByVal Repfirstrow As Boolean = True, ……) As Single
Dim MGrid As MSHFlexGrid
Set MGrid = Nothing
For Each frmTmp In Forms
If frmTmp.Tag = "frmWVLlstSA" Then
Set MGrid = frmTmp.GridList
Exit For
End If
Next
If Not (MGrid Is Nothing) Then
MGrid.WordWrap = True
VBprint1.NewDoc
VBprint1.NewPage
VBprint1.PrintMshflexgrid MGrid, "销售单列表", 16, vbCenter, True, False, True, "1111", , , , , "", "", "", "", "", "", False, False
'VBprint1.PrintMshflexgrid M1, "普通MSHFLexGrid打印预览结果(适应纸张宽度)", 16, vbCenter, True, True, True, "1111", , , , , "左边小标题内容", "中间小标题内容", "右边小标题内容", "表格尾部左边内容", "表格尾部中间内容", "表格尾部右边内容", False, False
VBprint1.EndDoc
End If