modprint.bas

这是一个用来打印手机三包凭证的源代码

Attribute VB_Name = "modPrint"
Option Explicit

Public mintBaseX As Integer
Public mintBaseY As Integer
Public mintGap As Integer
Public mintGapCusToSale As Integer





Public Sub PrintOut()

 PrintPositonInit

 Printer.KillDoc

 With Printer
   
        .Copies = 1
        .ScaleTop = 0
        .ScaleLeft = 0
        
       ' .ScaleMode = vbMillimeters
         '.PaperSize = 256
        ' .Height = 8363
      '   .Width = 5936
         
        .PaperSize = vbPRPSA4
       ' .Height = 147.5             ' 8363 Twips
       ' .Width = 104.7              ' 5936 Twips
       ' .Height = 837
       ' .Width = 594
        .FontName = "Arial"
        .FontSize = 6
        .FontBold = True
        
 End With
 
 
 Printer.CurrentX = mintBaseX
 Printer.CurrentY = mintBaseY
 Printer.Print gstrModel                           '