module2.bas

电子衡自动计量系统.能对电子汽车衡进行自动计量.完成车皮存储,重车自动除皮等功能.

Attribute VB_Name = "Module1"
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：PrintContent
'## 参数：Optional 为ntDevice As Printer型
'## 参数：Optional 为l As String型
'##################################################################

Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Declare Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByVal dwParam2 As Any) As Long

Public Sub PrintContent(Optional PrintDevice As Printer, Optional titl As String)
    Const TableStartX = 10
    
    If PrintDevice Is Nothing Then
        frmcx.CurtPrinter1.StartPrint toPreview   '预览
    Else
        frmcx.CurtPrinter1.StartPrint toPrinter  '打印到打印机
    End If
    
    With frmcx.CurtPrinter1
    
    
    '一些图形方法的演示
    .DrawWidth = 3
    .CircleOut 85, 230, 20, vbGreen, 1 / 3
    .CircleOut 85, 230, 20, vbRed, 3
    .CircleOut 85, 230, 20, vbBlue
    .LineOut 85, 230, 105, 230, vbGrayText
    .DotOut 85, 230, vbRed
    .RectOut 65, 210, 105, 250, vbBlue
    .DrawWidth = 1
    
    '重新开始一页，直接打印报表，注意，它会自动换页，如果你设定了标题，它也自动打哦:)
    ' .NewPage
    
    '直接打印MSHFlexGridtitl
    '.DirectPrint frmcx.grdDataGrid
    'FromDirectPrint MSHFlexGrid1, "FromDirectPrint--MSFlexGrid控件内容，表格起始水平坐标为10", , , 10
    ' .TextOut
    
    '结束打印
    .EndDoc
    End With
End Sub
    
    
    '预览的代码
    
    '两行代码可选，一个会调用打印对话框，一个直接打印了。
    
    '点击了预览控件上的关闭，引发该事件，关闭预览窗体