xprinter.bas

来自「一个很好用的打印系统」· BAS 代码 · 共 25 行

Attribute VB_Name = "modXPrinter"
Option Explicit

' Constant values (from WIN32API.TXT).
' DrawText Format Constants
Global Const DT_WORDBREAK = &H10
Global Const DT_LEFT = &H0
Global Const DT_NOPREFIX = &H800
Global Const DT_CENTER = &H1
Global Const DT_BOTTOM = &H8
Global Const DT_NOCLIP = &H100
Global Const DT_RIGHT = &H2
Global Const DT_SINGLELINE = &H20
Global Const DT_TOP = &H0
Global Const DT_VCENTER = &H4
Global Const DT_EDITCONTROL = &H2000
Global Const DT_WORD_ELLIPSIS = &H40000
Global Const DT_CALCRECT = &H400

'XPrinter Bitmap Print Formats
Public Const BM_NORMAL = 0
Public Const BM_STRETCH_PROPORTIONAL = 1
Public Const BM_STRETCH_TO_FIT = 2