Q5/ws_objects/longjoe_report_uo.pbl.src/uo_rpt_printer_setting.sru

$PBExportHeader$uo_rpt_printer_setting.sru
forward
global type uo_rpt_printer_setting from nonvisualobject
end type
type str_printer_info_1 from structure within uo_rpt_printer_setting
end type
type str_printer_info_2 from structure within uo_rpt_printer_setting
end type
type str_devmode from structure within uo_rpt_printer_setting
end type
type str_printer_defaults from structure within uo_rpt_printer_setting
end type
type str_printdlg from structure within uo_rpt_printer_setting
end type
type str_devnames from structure within uo_rpt_printer_setting
end type
type str_point from structure within uo_rpt_printer_setting
end type
type str_rect from structure within uo_rpt_printer_setting
end type
type str_pagesetupdlg from structure within uo_rpt_printer_setting
end type
end forward

type str_printer_info_1 from structure
	long		flags
	long		Description
	long		name
	long		comment
end type

type str_printer_info_2 from structure
	long		servername
	long		printername
	long		sharename
	long		portname
	long		drivername
	long		comment
	long		location
	long		devmode
	long		sepfile
	long		printprocessor
	long		datatype
	long		parameters
	long		securitydescriptor
	long		attributes
	long		priority
	long		defaultpriority
	long		starttime
	long		untiltime
	long		status
	long		cjobs
	long		averageppm
	character		reserve[500]
end type

type str_devmode from structure
	character		dmdevicename[32]
	unsignedinteger		dmspecversion
	unsignedinteger		dmdriverversion
	unsignedinteger		dmsize
	unsignedinteger		dmdriverextra
	unsignedlong		dmfields
	unsignedinteger		dmorientation
	unsignedinteger		dmpapersize
	unsignedinteger		dmpaperlength
	unsignedinteger		dmpaperwidth
	integer		dmscale
	integer		dmcopies
	integer		dmdefaultsource
	integer		dmprintquality
	integer		dmcolor
	integer		dmduplex
	integer		dmyresolution
	integer		dmttoption
	integer		dmcollate
	character		dmformname[32]
	unsignedinteger		dmlogpixels
	unsignedlong		dmbitsperpel
	unsignedlong		dmpelswidth
	unsignedlong		dmpelsheight
	unsignedlong		dmdisplayflags
	unsignedlong		dmdisplayfrequency
	unsignedlong		dmicmmethod
	unsignedlong		dmicmintent
	unsignedlong		dmmediatype
	unsignedlong		dmdithertype
	unsignedlong		dmreserved1
	unsignedlong		dmreserved2
	unsignedlong		dmreserved3
end type

type str_printer_defaults from structure
	long		Datatype
	long		DevMode
	long		DesiredAccess
end type

type str_printdlg from structure
	unsignedlong		lstructsize
	unsignedlong		hwndowner
	unsignedlong		hdevmode
	unsignedlong		hdevnames
	unsignedlong		hdc
	unsignedlong		flags
	unsignedinteger		nfrompage
	unsignedinteger		ntopage
	unsignedinteger		nminpage
	unsignedinteger		nmaxpage
	unsignedinteger		ncopies
	unsignedlong		hinstance
	unsignedlong		lcustdata
	unsignedlong		lpfnprinthook
	unsignedlong		lpfnsetuphook
	unsignedlong		lpprinttemplatename
	unsignedlong		lpsetuptemplatename
	unsignedlong		hprinttemplate
	unsignedlong		hsetuptemplate
	uint		reserve1
end type

type str_devnames from structure
	UINT		wDriverOffset
	UINT		wDeviceOffset
	UINT		wOutputOffset
	UINT		wDefault
	character		drivername[32]
	character		devicename[32]
	character		portname[32]
end type

type str_point from structure
	long		x
	long		y
end type

type str_rect from structure
	long		left
	long		top
	long		right
	long		bottom
end type

type str_PAGESETUPDLG from structure
	ulong		lStructSize
	ulong		hwndOwner
	ulong		hDevMode
	ulong		hDevNames
	ulong		Flags
	str_point		ptPaperSize
	str_rect		rtMinMargin
	str_rect		rtMargin
	ulong		hInstance
	ulong		lCustData
	ulong		lpfnPageSetupHook
	ulong		lpfnPagePaintHook
	ulong		lpPageSetupTemplateName
	ulong		hPageSetupTemplate
end type

global type uo_rpt_printer_setting from nonvisualobject autoinstantiate
end type

type prototypes
function boolean EnumPrinters(ulong flags, string name, ulong level, ref blob buffer, ulong cbbuf, ref ulong cbneeded, ref ulong returned) library "winspool.drv" alias  for "EnumPrintersA;Ansi"
function ulong CopyMem ( ref str_printer_info_1 dest, ref blob source, ulong length ) library "kernel32" alias for "RtlMoveMemory;Ansi"
function ulong CopyMem ( ref str_printer_info_2 dest, ref blob source, ulong length ) library "kernel32" alias for "RtlMoveMemory;Ansi"
function ulong CopyMem ( ref blob source, ref str_printer_info_2 dest, ulong length ) library "kernel32" alias for "RtlMoveMemory;Ansi"

function boolean OpenPrinter ( string PrinterName, ref ulong hPrinter, ulong null) library "winspool.drv" alias for "OpenPrinterA;Ansi"
function boolean OpenPrinter ( string PrinterName, ref ulong hPrinter, ref str_printer_defaults null) library "winspool.drv" alias for "OpenPrinterA;Ansi"
function boolean ClosePrinter ( ulong hPrinter ) library "winspool.drv"
function boolean GetPrinter ( ulong hPrinter, ulong level, ref blob  Printer, ulong cbbuf, ref ulong cbNeeded ) library "winspool.drv" alias for "GetPrinterA"
function boolean SetPrinter ( ulong hPrinter, ulong level, ref blob Printer, ulong command ) library "winspool.drv" alias for "SetPrinterA"
function boolean PrinterProperties ( ulong hwnd, ulong hprinter ) library "winspool.drv"
function ulong CopyMem ( ref str_devmode dest, ref blob src, ulong length ) library "kernel32" alias for "RtlMoveMemory;Ansi"
function ulong CopyMem ( ref str_devmode dest, ulong src, ulong length ) library "kernel32" alias for "RtlMoveMemory;Ansi"
function ulong CopyMem ( ref blob src, ref str_devmode dest, ulong length ) library "kernel32" alias for "RtlMoveMemory;Ansi"
function ulong CopyMem ( ulong src, ref str_devmode dest, ulong length ) library "kernel32" alias for "RtlMoveMemory;Ansi"

function long DocumentProperties ( ulong hwnd, ulong hprinter, string null, ref blob DevModeOutput, long null_1, ulong fMode ) library "winspool.drv" alias for "DocumentPropertiesA;Ansi"
function long DocumentProperties ( ulong hwnd, ulong hprinter, string null, ulong null_1, ref str_devmode pDevModeInput , ulong fMode ) library "winspool.drv" alias for "DocumentPropertiesA;Ansi"
function long DocumentProperties ( ulong hwnd, ulong hprinter, string null, ulong null_1, ref blob pDevModeInput , ulong fMode ) library "winspool.drv" alias for "DocumentPropertiesA;Ansi"

function long DeviceCapabilities ( string Device, string Port, uint fwCapability, ref blob pOutput, long devmode ) library "winspool.drv" alias for "DeviceCapabilitiesA;Ansi"
function long DeviceCapabilities ( string Device, string Port, uint fwCapability, long null,  long devmode ) library "winspool.drv" alias for "DeviceCapabilitiesA;Ansi"

function ulong CreateDC ( long driver, string device, long output, long devmode ) library "gdi32" alias for "CreateDCA;Ansi"
function boolean DeleteDC ( ulong hdc ) library "gdi32"
function int Escape ( ulong hdc, int nEscape, int cbInput, long inData, ref blob outdata ) library "gdi32"

function ulong GlobalAlloc(uint uFlags, ulong dwBytes ) library "kernel32"
function ulong GlobalFree ( ulong hmem ) library "kernel32"
function ulong GlobalLock ( ulong hmem ) library "kernel32"
function boolean GlobalUnlock (ulong hmem ) library "kernel32"
function ulong GlobalSize ( ulong hem ) library "kernel32"

function long PrintDlg(ref str_printdlg printdlg) library "comdlg32" alias for "PrintDlgA;Ansi"
function ulong CopyMem ( ref str_devnames dest, ulong src, ulong length ) library "kernel32" alias for "RtlMoveMemory;Ansi"
function ulong CopyMem ( ref blob dest, ulong src, ulong length ) library "kernel32" alias for "RtlMoveMemory"

function boolean PageSetupDlg(ref str_pagesetupdlg ll ) library "comdlg32" alias for "PageSetupDlgA;Ansi"
end prototypes

type variables
constant ulong PRINTER_ENUM_DEFAULT = 1
constant ulong PRINTER_ENUM_LOCAL = 2
constant ulong PRINTER_ENUM_CONNECTIONS = 4
constant ulong PRINTER_ENUM_FAVORITE = 4
constant ulong PRINTER_ENUM_NAME = 8
constant ulong PRINTER_ENUM_REMOTE = 16
constant ulong PRINTER_ENUM_SHARED = 32
constant ulong PRINTER_ENUM_NETWORK = 64

constant ulong PRINTER_ENUM_EXPAND = 16384
constant ulong PRINTER_ENUM_CONTAINER = 32768

constant ulong PRINTER_ENUM_ICONMASK = 16711680
constant ulong PRINTER_ENUM_ICON1 = 65536
constant ulong PRINTER_ENUM_ICON2 = 131072
constant ulong PRINTER_ENUM_ICON3 = 262144
constant ulong PRINTER_ENUM_ICON4 = 545288
constant ulong PRINTER_ENUM_ICON5 = 1048576
constant ulong PRINTER_ENUM_ICON6 = 2097152
constant ulong PRINTER_ENUM_ICON7 = 4194304
constant ulong PRINTER_ENUM_ICON8 = 8388608

constant integer PRINTER_INFO_1_LEN = 16
constant integer PRINTER_INFO_2_LEN = 84
constant integer DEVMODE_LEN = 148

constant ulong DM_ORIENTATION       = 00000001
constant ulong DM_PAPERSIZE         = 00000002
constant ulong DM_PAPERLENGTH       = 00000004
constant ulong DM_PAPERWIDTH        = 00000008
constant ulong DM_SCALE             = 00000016
constant ulong DM_COPIES            = 00000256
constant ulong DM_DEFAULTSOURCE     = 00000512
constant ulong DM_PRINTQUALITY      = 000001024
constant ulong DM_COLOR             = 000002048
constant ulong DM_DUPLEX            = 00004096
constant ulong DM_YRESOLUTION       = 00008192
constant ulong DM_TTOPTION          = 000016384
constant ulong DM_COLLATE           = 32768
constant ulong DM_FORMNAME          = 65536
constant ulong DM_LOGPIXELS         = 131072
constant ulong DM_BITSPERPEL        = 262144
constant ulong DM_PELSWIDTH         = 524288
constant ulong DM_PELSHEIGHT        = 1048576
constant ulong DM_DISPLAYFLAGS      = 2097152
constant ulong DM_DISPLAYFREQUENCY  = 4194304
constant ulong DM_ICMMETHOD         = 8388608
constant ulong DM_ICMINTENT         = 16777216
constant ulong DM_MEDIATYPE         = 33554432
constant ulong DM_DITHERTYPE        = 67108864
constant ulong DM_PANNINGWIDTH      = 134217728
constant ulong DM_PANNINGHEIGHT     = 268435456

/* orientation selections */
constant ulong DMORIENT_PORTRAIT  =  1
constant ulong DMORIENT_LANDSCAPE  = 2

constant ulong PRINTER_ATTRIBUTE_QUEUED = 0001
constant ulong PRINTER_ATTRIBUTE_DIRECT = 0002
constant ulong PRINTER_ATTRIBUTE_DEFAULT = 0004
constant ulong PRINTER_ATTRIBUTE_SHARED = 0008
constant ulong PRINTER_ATTRIBUTE_NETWORK = 0016
constant ulong PRINTER_ATTRIBUTE_HIDDEN = 0032
constant ulong PRINTER_ATTRIBUTE_LOCAL = 0064

constant ulong PRINTER_ATTRIBUTE_ENABLE_DEVQ       = 128
constant ulong PRINTER_ATTRIBUTE_KEEPPRINTEDJOBS   = 256
constant ulong PRINTER_ATTRIBUTE_DO_COMPLETE_FIRST = 512

constant ulong PRINTER_ATTRIBUTE_WORK_OFFLINE   = 1024
constant ulong PRINTER_ATTRIBUTE_ENABLE_BIDI    = 2048
constant ulong PRINTER_ATTRIBUTE_RAW_ONLY       = 4096

constant ulong DM_IN_BUFFER = 8
constant ulong DM_IN_PROMPT = 4
constant ulong DM_OUT_BUFFER = 2
constant ulong DM_OUT_DEFAULT = 1

constant ulong DC_FIELDS      =     1
constant ulong DC_PAPERS       =    2
constant ulong DC_PAPERSIZE     =   3
constant ulong DC_MINEXTENT      =  4
constant ulong DC_MAXEXTENT       = 5
constant ulong DC_BINS   =          6
constant ulong DC_DUPLEX  =         7
constant ulong DC_SIZE     =        8
constant ulong DC_EXTRA     =       9
constant ulong DC_VERSION    =      10
constant ulong DC_DRIVER      =     11
constant ulong DC_BINNAMES     =    12
constant ulong DC_ENUMRESOLUTIONS = 13
constant ulong DC_FILEDEPENDENCIES= 14
constant ulong DC_TRUETYPE       =  15
constant ulong DC_PAPERNAMES     =  16
constant ulong DC_ORIENTATION    =  17
constant ulong DC_COPIES         =  18

constant uint DMPAPER_LETTER =              1  /* Letter 8 1/2 x 11 in               */
constant uint DMPAPER_LETTERSMALL =         2  /* Letter Small 8 1/2 x 11 in         */
constant uint DMPAPER_TABLOID =             3  /* Tabloid 11 x 17 in                 */
constant uint DMPAPER_LEDGER =              4  /* Ledger 17 x 11 in                  */
constant uint DMPAPER_LEGAL =               5  /* Legal 8 1/2 x 14 in                */
constant uint DMPAPER_STATEMENT =           6  /* Statement 5 1/2 x 8 1/2 in         */
constant uint DMPAPER_EXECUTIVE =           7  /* Executive 7 1/4 x 10 1/2 in        */
constant uint DMPAPER_A3 =                  8  /* A3 297 x 420 mm                    */
constant uint DMPAPER_A4 =                  9  /* A4 210 x 297 mm                    */
constant uint DMPAPER_A4SMALL =            10  /* A4 Small 210 x 297 mm              */
constant uint DMPAPER_A5 =                 11  /* A5 148 x 210 mm                    */
constant uint DMPAPER_B4 =                 12  /* B4 (JIS) 250 x 354                 */
constant uint DMPAPER_B5 =                 13  /* B5 (JIS) 182 x 257 mm              */
constant uint DMPAPER_FOLIO =              14  /* Folio 8 1/2 x 13 in                */
constant uint DMPAPER_QUARTO =             15  /* Quarto 215 x 275 mm                */
constant uint DMPAPER_10X14 =              16  /* 10x14 in                           */
constant uint DMPAPER_11X17 =              17  /* 11x17 in                           */
constant uint DMPAPER_NOTE =               18  /* Note 8 1/2 x 11 in                 */
constant uint DMPAPER_ENV_9 =              19  /* Envelope #9 3 7/8 x 8 7/8          */
constant uint DMPAPER_ENV_10 =             20  /* Envelope #10 4 1/8 x 9 1/2         */
constant uint DMPAPER_ENV_11 =             21  /* Envelope #11 4 1/2 x 10 3/8        */
constant uint DMPAPER_ENV_12 =             22  /* Envelope #12 4 \276 x 11           */
constant uint DMPAPER_ENV_14 =             23  /* Envelope #14 5 x 11 1/2            */
constant uint DMPAPER_CSHEET =             24  /* C size sheet                       */
constant uint DMPAPER_DSHEET =             25  /* D size sheet                       */
constant uint DMPAPER_ESHEET =             26  /* E size sheet                       */
constant uint DMPAPER_ENV_DL =             27  /* Envelope DL 110 x 220mm            */
constant uint DMPAPER_ENV_C5 =             28  /* Envelope C5 162 x 229 mm           */
constant uint DMPAPER_ENV_C3 =             29  /* Envelope C3  324 x 458 mm          */
constant uint DMPAPER_ENV_C4 =             30  /* Envelope C4  229 x 324 mm          */
constant uint DMPAPER_ENV_C6 =             31  /* Envelope C6  114 x 162 mm          */
constant uint DMPAPER_ENV_C65 =            32  /* Envelope C65 114 x 229 mm          */
constant uint DMPAPER_ENV_B4 =             33  /* Envelope B4  250 x 353 mm          */
constant uint DMPAPER_ENV_B5 =             34  /* Envelope B5  176 x 250 mm          */
constant uint DMPAPER_ENV_B6 =             35  /* Envelope B6  176 x 125 mm          */
constant uint DMPAPER_ENV_ITALY =          36  /* Envelope 110 x 230 mm              */
constant uint DMPAPER_ENV_MONARCH =        37  /* Envelope Monarch 3.875 x 7.5 in    */
constant uint DMPAPER_ENV_PERSONAL =       38  /* 6 3/4 Envelope 3 5/8 x 6 1/2 in    */
constant uint DMPAPER_FANFOLD_US   =       39  /* US Std Fanfold 14 7/8 x 11 in      */
constant uint DMPAPER_FANFOLD_STD_GERMAN = 40  /* German Std Fanfold 8 1/2 x 12 in   */
constant uint DMPAPER_FANFOLD_LGL_GERMAN = 41  /* German Legal Fanfold 8 1/2 x 13 in */
constant uint DMPAPER_ISO_B4   =           42  /* B4 (ISO) 250 x 353 mm              */
constant uint DMPAPER_JAPANESE_POSTCARD =  43  /* Japanese Postcard 100 x 148 mm     */
constant uint DMPAPER_9X11       =         44  /* 9 x 11 in                          */
constant uint DMPAPER_10X11      =         45  /* 10 x 11 in                         */
constant uint DMPAPER_15X11       =        46  /* 15 x 11 in                         */
constant uint DMPAPER_ENV_INVITE   =       47  /* Envelope Invite 220 x 220 mm       */
constant uint DMPAPER_RESERVED_48   =      48  /* RESERVED--DO NOT USE               */
constant uint DMPAPER_RESERVED_49    =     49  /* RESERVED--DO NOT USE               */
constant uint DMPAPER_LETTER_EXTRA    =    50  /* Letter Extra 9 \275 x 12 in        */
constant uint DMPAPER_LEGAL_EXTRA     =    51  /* Legal Extra 9 \275 x 15 in         */
constant uint DMPAPER_TABLOID_EXTRA    =   52  /* Tabloid Extra 11.69 x 18 in        */
constant uint DMPAPER_A4_EXTRA       =     53  /* A4 Extra 9.27 x 12.69 in           */
constant uint DMPAPER_LETTER_TRANSVERSE  = 54  /* Letter Transverse 8 \275 x 11 in   */
constant uint DMPAPER_A4_TRANSVERSE   =    55  /* A4 Transverse 210 x 297 mm         */
constant uint DMPAPER_LETTER_EXTRA_TRANSVERSE =56 /* Letter Extra Transverse 9\275 x 12 in */
constant uint DMPAPER_A_PLUS       =       57  /* SuperA/SuperA/A4 227 x 356 mm      */
constant uint DMPAPER_B_PLUS       =       58  /* SuperB/SuperB/A3 305 x 487 mm      */
constant uint DMPAPER_LETTER_PLUS   =      59  /* Letter Plus 8.5 x 12.69 in         */
constant uint DMPAPER_A4_PLUS       =      60  /* A4 Plus 210 x 330 mm               */
constant uint DMPAPER_A5_TRANSVERSE  =     61  /* A5 Transverse 148 x 210 mm         */
constant uint DMPAPER_B5_TRANSVERSE  =     62  /* B5 (JIS) Transverse 182 x 257 mm   */
constant uint DMPAPER_A3_EXTRA       =     63  /* A3 Extra 322 x 445 mm              */
constant uint DMPAPER_A5_EXTRA      =      64  /* A5 Extra 174 x 235 mm              */
constant uint DMPAPER_B5_EXTRA      =      65  /* B5 (ISO) Extra 201 x 276 mm        */
constant uint DMPAPER_A2            =      66  /* A2 420 x 594 mm                    */
constant uint DMPAPER_A3_TRANSVERSE  =     67  /* A3 Transverse 297 x 420 mm         */
constant uint DMPAPER_A3_EXTRA_TRANSVERSE = 68  /* A3 Extra Transverse 322 x 445 mm   */
constant uint DMPAPER_USER      =          256

constant uint GMEM_MOVEABLE = 2 

constant int PRINTDLG_LEN = 66

constant ulong PD_ALLPAGES                     = 000000
constant ulong PD_SELECTION                    = 000001
constant ulong PD_PAGENUMS                     = 000002
constant ulong PD_NOSELECTION                  = 000004
constant ulong PD_NOPAGENUMS                   = 000008
constant ulong PD_COLLATE                      = 000016
constant ulong PD_PRINTTOFILE                  = 000032
constant ulong PD_PRINTSETUP                   = 000064
constant ulong PD_NOWARNING                    = 0000128
constant ulong PD_RETURNDC                     = 256
constant ulong PD_RETURNIC                     = 512
constant ulong PD_RETURNDEFAULT                = 1024
constant ulong PD_SHOWHELP                     = 2048
constant ulong PD_ENABLEPRINTHOOK              = 4096
constant ulong PD_ENABLESETUPHOOK              = 8192
constant ulong PD_ENABLEPRINTTEMPLATE          = 16384
constant ulong PD_ENABLESETUPTEMPLATE          = 32768
constant ulong PD_ENABLEPRINTTEMPLATEHANDLE    = 65536
constant ulong PD_ENABLESETUPTEMPLATEHANDLE    = 131072
constant ulong PD_USEDEVMODECOPIES             = 262144
constant ulong PD_USEDEVMODECOPIESANDCOLLATE   = 524288
constant ulong PD_DISABLEPRINTTOFILE           = 1048576
constant ulong PD_HIDEPRINTTOFILE              = 2097152
constant ulong PD_NONETWORKBUTTON              = 4194304

constant int DEVNAMES_LEN = 32 * 3 +8

constant ulong PSD_DEFAULTMINMARGINS             = 0000000 // default (printer's)
constant ulong PSD_INWININIINTLMEASURE           = 0000000 // 1st of 4 possible
constant ulong PSD_MINMARGINS                    = 0000001 // use caller's
constant ulong PSD_MARGINS                       = 0000002 // use caller's
constant ulong PSD_INTHOUSANDTHSOFINCHES         = 0000004 // 2nd of 4 possible
constant ulong PSD_INHUNDREDTHSOFMILLIMETERS     = 0000008 // 3rd of 4 possible
constant ulong PSD_DISABLEMARGINS                = 16
constant ulong PSD_DISABLEPRINTER                = 32
constant ulong PSD_NOWARNING                     = 128 // must be same as PD_*
constant ulong PSD_DISABLEORIENTATION            = 256
constant ulong PSD_RETURNDEFAULT                 = 1024 // must be same as PD_*
constant ulong PSD_DISABLEPAPER                  = 512
constant ulong PSD_SHOWHELP                      = 2048 // must be same as PD_*
constant ulong PSD_ENABLEPAGESETUPHOOK           = 8192 // must be same as PD_*
constant ulong PSD_ENABLEPAGESETUPTEMPLATE       = 32768 // must be same as PD_*
constant ulong PSD_ENABLEPAGESETUPTEMPLATEHANDLE = 131072 // must be same as PD_*
constant ulong PSD_ENABLEPAGEPAINTHOOK           = 262144
constant ulong PSD_DISABLEPAGEPAINTING           = 524288
constant ulong PSD_NONETWORKBUTTON               = 2097152 // must be same as PD_*

constant int PAGESETUPDLG_LEN = 84
end variables

forward prototypes
public function integer of_getprinterlist (ref string printerlist[])
public function integer of_direct (string PrinterName, string data)
public function integer of_printer (string printername, integer command, ref any outpara, ref integer papersize, ref integer paperwidth, ref integer paperlength)
public function string of_getdrivername (string PrinterName)
public function string of_getportname (string printername)
public function int of_getattribute (string printername)
public function long of_getstatus (string printername)
public function integer of_getpapersize (string printername, ref integer papersize, ref integer paperwidth, ref integer paperheight)
public function string of_getpbprinter ()
public function integer of_setdefault (string printername)
private function string of_getstringfromblob (blob source, integer offset)
private function integer of_modifyprinter (string printername, str_devmode devmode)
public function integer of_printsetup (unsignedlong hwnd)
public function integer of_setpapersize (string printername, integer papersize, integer paperwidth, integer paperheight)
public function integer of_pagesetup (unsignedlong hwnd, ref long left, ref long right, ref long top, ref long bottom)
end prototypes

public function integer of_getprinterlist (ref string printerlist[]);// 取打印机列表
// 在printerlist[]中返回
// 返回值为打印机个数，返回-1,错误
integer li_Count , li_Size, li_i
String ls_Name
Blob lbl_buffer, lbl_tmp ,lbl_buffer_net
ulong ll_cbNeeded, ll_Returned,ll_Returned_net
str_Printer_info_2 lstr_info

li_Size = 1

l_GetPrinter:
lbl_buffer = Blob ( Space ( li_size ) )
SetNull ( ls_Name )
If Not EnumPrinters( PRINTER_ENUM_LOCAL, ls_Name, 2, ref lbl_buffer, li_size, ll_cbNeeded, ll_Returned ) Then
	If li_size < ll_cbNeeded Then
		li_size = ll_cbNeeded
		Goto l_GetPrinter
	Else
		Return -1
	End If
End If

// cjh -020728
l_GetPrinter_net:
lbl_buffer_net = Blob ( Space ( li_size ) )
SetNull ( ls_Name )

If Not EnumPrinters( PRINTER_ENUM_CONNECTIONS, ls_Name, 2, ref lbl_buffer_net, li_size, ll_cbNeeded, ll_Returned_net ) Then
	If li_size < ll_cbNeeded Then
		li_size = ll_cbNeeded
		Goto l_GetPrinter_net
	Else
		Return -1
	End If
End If

string ls_desc, ls_pname, ls_comment
For li_i = 1 To integer ( ll_Returned )+integer ( ll_Returned_net )
	lbl_tmp = BlobMid ( lbl_buffer, (li_i -1 ) * PRINTER_INFO_2_LEN + 1 )
	CopyMem ( lstr_info, lbl_tmp, PRINTER_INFO_2_LEN )
	printerlist [ li_i ] = String ( lstr_info.PrinterName, "address" )
	ls_pname = string ( lstr_info.PortName, "address"  )
Next

For li_i =integer ( ll_Returned )+1 To integer ( ll_Returned )+integer ( ll_Returned_net )
	lbl_tmp = BlobMid ( lbl_buffer_net, (li_i -1 - integer ( ll_Returned )) * PRINTER_INFO_2_LEN + 1 )
	CopyMem ( lstr_info, lbl_tmp, PRINTER_INFO_2_LEN )
	printerlist [ li_i ] = String ( lstr_info.PrinterName, "address" )
	ls_pname = string ( lstr_info.PortName, "address"  )
Next

Return Integer ( ll_Returned )+integer ( ll_Returned_net )

// cjh -020728
end function

public function integer of_direct (string PrinterName, string data);// 绕过windows直接向打印机发送字符
// PrinterName: 打印机名称
// data: 需要发送的数据
// 返回: 1 = 成功, 2 = 失败
ulong ll_handle
// 建立打印机handle
ll_handle = CreateDC ( 0, PrinterName, 0, 0 )

DeleteDC ( ll_handle )
Return 1
end function

public function integer of_printer (string printername, integer command, ref any outpara, ref integer papersize, ref integer paperwidth, ref integer paperlength);// 与打印机有关的操作
// PrinterName:打印机名称
// Command:命令
// =1: 取打印机驱动名称
// = 2: 取打印机端口名称
// = 3: 取打印机状态
// = 4: 取打印机属性
// = 5: 取打印机纸张
// = 6: 取打印机自定义纸张的大小
// = 7: 取打印方向
// = 8: 设置为缺省打印机
// = 101: 设置打印机的纸张
// = 102: 将打印机设为自定义纸张并设定自定义纸张的大小
// = 103: 设置打印方向

// outpara: 1,2,3,4, 打印机参数由此返回
// papersize: 打印纸大小
// pagerwidth, pagerheight:自定义打印纸尺
// 取得打印机打印纸
// return 1: 成功
// return -1: 不成功

str_Printer_info_2 lstr_info
str_Printer_defaults lstr_default
str_devmode lstr_devmode
Integer li_rc, li_i
string ls_DriverName, ls_PortName
ulong ll_handle, ll_cbbuf, ll_cbNeeded
blob lbl_buffer

// 打开打印机
If Not OpenPrinter ( printername, ll_handle, ref lstr_default ) Then Return -1
ll_cbbuf = 0

// 取打印机驱动名称
ll_cbBuf = 0

l_SetBuffer:
lbl_buffer = Blob ( Space ( ll_cbBuf ) )
If Not GetPrinter ( ll_handle, 2, ref lbl_buffer, ll_cbBuf, ll_cbNeeded ) Then
	If ll_cbNeeded > ll_cbBuf Then
		ll_cbBuf = ll_cbNeeded
		Goto l_SetBuffer
	Else
		Return -1
	End If
End If

// copy 至结构
CopyMem ( lstr_info, lbl_buffer, PRINTER_INFO_2_LEN )

// 驱动名、端口
ls_DriverName = String ( lstr_info.DriverName, "address" )
ls_PortName = String ( lstr_info.PortName, "address" )

Choose Case Command
	Case 1
		// 驱动名称
		OutPara = ls_DriverName
		li_rc = 1
		Goto l_quit
	Case 2
		// 端口名称
		OutPara = ls_PortName
		li_rc = 1
		Goto l_quit
	Case 3
		// 打印机状态
		OutPara = lstr_info.Status
		li_rc = 1
		Goto l_quit
	Case 4
		// 打印机属性
		OutPara = lstr_info.Attributes
		li_rc = 1
		Goto l_quit
	Case 5,6
		// 打印纸大小
		CopyMem ( lstr_devmode, lstr_info.DevMode, DEVMODE_LEN )
		papersize = lstr_devMode.dmPaperSize
		paperwidth = lstr_devMode.dmPaperWidth
		paperlength = lstr_devMode.dmPaperLength
		li_rc = 1
		Goto l_quit
	Case 7
		// 打印方向
		CopyMem ( lstr_devmode, lstr_info.DevMode, DEVMODE_LEN )
		OutPara = lstr_devMode.dmOrientation 		
		li_rc = 1
		Goto l_quit
	Case 105
		// 设置为缺省打印机
		lstr_info.Attributes += PRINTER_ATTRIBUTE_DEFAULT
		CopyMem ( lbl_buffer, lstr_info, PRINTER_INFO_2_LEN )
		If SetPrinter ( ll_handle , 2, lbl_buffer, 0 ) Then
			li_rc = 1 
		Else
			li_rc = -1
		end If
		Goto l_quit
End Choose

If Command = 101 Or Command = 102 Then
	// 取打印机支持的纸张
	SetNull ( lbl_buffer )
	ll_cbbuf = DeviceCapabilities ( printername, ls_PortName, DC_PAPERS, 0, 0 )
	lbl_buffer = Blob ( Space ( 1024 ) )  // ll_cbbuf ) )
	ll_cbbuf = DeviceCapabilities ( PrinterName, ls_PortName, DC_PAPERS, lbl_buffer, 0 )
	If ll_cbbuf < 0 Then Return -1
	
	// 检查是否支持用户指定纸张
	For li_i =1 To Integer ( ll_cbbuf )
		If integer ( BlobMid ( lbl_buffer, ( li_i - 1 ) * 2 + 1, 2  ) ) = papersize Then Exit
	Next
	
	If li_i > Integer ( ll_cbbuf ) Then
		// 不支持自定久纸张
		Return -1
	End If
End If

// 取需要的空间
ll_cbbuf =DocumentProperties ( 0, ll_handle, ls_DriverName, ref lbl_buffer, 0 , 0 )
If ll_cbbuf < 0 Then 
	li_rc = -1
	Goto l_quit
End If

// 分配空间
lbl_buffer = Blob ( Space ( ll_cbbuf ) )
li_rc = DocumentProperties ( 0, ll_handle, ls_DriverName, ref lbl_buffer, 0, DM_OUT_BUFFER )

CopyMem ( lstr_devmode, lbl_buffer, DEVMODE_LEN )

Choose Case command
	Case 101,102
		lstr_devMode.dmPaperSize = papersize
		lstr_devMode.dmFields =  DM_PAPERSIZE
		If PaperSize = DMPAPER_USER Then
			lstr_devMode.dmPaperWidth = paperwidth
			lstr_devMode.dmPaperLength = paperlength
			lstr_devMode.dmFields += DM_PAPERLENGTH + DM_PAPERWIDTH
		End If
	Case 103
		lstr_devMode.dmOrientation = outpara
		lstr_devMode.dmFields = DM_ORIENTATION
End Choose

li_rc = DocumentProperties ( 0, ll_handle, ls_DriverName, 0, lstr_devmode, DM_IN_BUFFER + DM_OUT_DEFAULT )
If li_rc > 0 Then li_rc = 1

l_quit:
ClosePrinter ( ll_handle )
Return li_rc
end function

public function string of_getdrivername (string PrinterName);// 取打印机驱动程序名称
String ls_Driver
Integer li_1, li_2, li_3, li_rc
Any la_para
li_rc = of_Printer ( PrinterName, 1, la_para, li_1, li_2, li_3 )
If li_rc = 1 Then
	ls_Driver = String ( la_para )
Else
	ls_Driver = ''
End If

Return ls_Driver

end function

public function string of_getportname (string printername);// 取打印机端口名称
String ls_port
Integer li_1, li_2, li_3, li_rc
Any la_para
li_rc = of_Printer ( PrinterName, 2, la_para, li_1, li_2, li_3 )
If li_rc = 1 Then
	ls_port = String ( la_para )
Else
	ls_port = ''
End If

Return ls_port

end function

public function int of_getattribute (string printername);// 取打印机属性，下为打印机属性定义
/*
#define PRINTER_ATTRIBUTE_QUEUED         0x00000001
#define PRINTER_ATTRIBUTE_DIRECT         0x00000002
#define PRINTER_ATTRIBUTE_DEFAULT        0x00000004
#define PRINTER_ATTRIBUTE_SHARED         0x00000008
#define PRINTER_ATTRIBUTE_NETWORK        0x00000010
#define PRINTER_ATTRIBUTE_HIDDEN         0x00000020
#define PRINTER_ATTRIBUTE_LOCAL          0x00000040

#define PRINTER_ATTRIBUTE_ENABLE_DEVQ       0x00000080
#define PRINTER_ATTRIBUTE_KEEPPRINTEDJOBS   0x00000100
#define PRINTER_ATTRIBUTE_DO_COMPLETE_FIRST 0x00000200

#define PRINTER_ATTRIBUTE_WORK_OFFLINE   0x00000400
#define PRINTER_ATTRIBUTE_ENABLE_BIDI    0x00000800
#define PRINTER_ATTRIBUTE_RAW_ONLY       0x00001000
#define PRINTER_ATTRIBUTE_PUBLISHED      0x00002000
*/

int li_attrib
Integer li_1, li_2, li_3, li_rc
Any la_para
li_rc = of_Printer ( PrinterName, 2, la_para, li_1, li_2, li_3 )
If li_rc = 1 Then
	li_attrib = la_para
Else
	li_attrib = -1
End If

Return li_attrib

end function

public function long of_getstatus (string printername);// 取打印机状态，下为打印机状态定义
/*
#define PRINTER_STATUS_PAUSED            0x00000001
#define PRINTER_STATUS_ERROR             0x00000002
#define PRINTER_STATUS_PENDING_DELETION  0x00000004
#define PRINTER_STATUS_PAPER_JAM         0x00000008
#define PRINTER_STATUS_PAPER_OUT         0x00000010
#define PRINTER_STATUS_MANUAL_FEED       0x00000020
#define PRINTER_STATUS_PAPER_PROBLEM     0x00000040
#define PRINTER_STATUS_OFFLINE           0x00000080
#define PRINTER_STATUS_IO_ACTIVE         0x00000100
#define PRINTER_STATUS_BUSY              0x00000200
#define PRINTER_STATUS_PRINTING          0x00000400
#define PRINTER_STATUS_OUTPUT_BIN_FULL   0x00000800
#define PRINTER_STATUS_NOT_AVAILABLE     0x00001000
#define PRINTER_STATUS_WAITING           0x00002000
#define PRINTER_STATUS_PROCESSING        0x00004000
#define PRINTER_STATUS_INITIALIZING      0x00008000
#define PRINTER_STATUS_WARMING_UP        0x00010000
#define PRINTER_STATUS_TONER_LOW         0x00020000
#define PRINTER_STATUS_NO_TONER          0x00040000
#define PRINTER_STATUS_PAGE_PUNT         0x00080000
#define PRINTER_STATUS_USER_INTERVENTION 0x00100000
#define PRINTER_STATUS_OUT_OF_MEMORY     0x00200000
#define PRINTER_STATUS_DOOR_OPEN         0x00400000
#define PRINTER_STATUS_SERVER_UNKNOWN    0x00800000
#define PRINTER_STATUS_POWER_SAVE        0x01000000
*/

long ll_status
Integer li_1, li_2, li_3, li_rc
Any la_para
li_rc = of_Printer ( PrinterName, 3, la_para, li_1, li_2, li_3 )
If li_rc = 1 Then
	ll_status = la_para
Else
	ll_status = -1
End If

Return ll_status

end function

public function integer of_getpapersize (string printername, ref integer papersize, ref integer paperwidth, ref integer paperheight);// 取打印机纸张大小
/* 打印机尺寸定义
#define DMPAPER_LETTER               1  /* Letter 8 1/2 x 11 in               */
#define DMPAPER_LETTERSMALL          2  /* Letter Small 8 1/2 x 11 in         */
#define DMPAPER_TABLOID              3  /* Tabloid 11 x 17 in                 */
#define DMPAPER_LEDGER               4  /* Ledger 17 x 11 in                  */
#define DMPAPER_LEGAL                5  /* Legal 8 1/2 x 14 in                */
#define DMPAPER_STATEMENT            6  /* Statement 5 1/2 x 8 1/2 in         */
#define DMPAPER_EXECUTIVE            7  /* Executive 7 1/4 x 10 1/2 in        */
#define DMPAPER_A3                   8  /* A3 297 x 420 mm                    */
#define DMPAPER_A4                   9  /* A4 210 x 297 mm                    */
#define DMPAPER_A4SMALL             10  /* A4 Small 210 x 297 mm              */
#define DMPAPER_A5                  11  /* A5 148 x 210 mm                    */
#define DMPAPER_B4                  12  /* B4 (JIS) 250 x 354                 */
#define DMPAPER_B5                  13  /* B5 (JIS) 182 x 257 mm              */
#define DMPAPER_FOLIO               14  /* Folio 8 1/2 x 13 in                */
#define DMPAPER_QUARTO              15  /* Quarto 215 x 275 mm                */
#define DMPAPER_10X14               16  /* 10x14 in                           */
#define DMPAPER_11X17               17  /* 11x17 in                           */
#define DMPAPER_NOTE                18  /* Note 8 1/2 x 11 in                 */
#define DMPAPER_ENV_9               19  /* Envelope #9 3 7/8 x 8 7/8          */
#define DMPAPER_ENV_10              20  /* Envelope #10 4 1/8 x 9 1/2         */
#define DMPAPER_ENV_11              21  /* Envelope #11 4 1/2 x 10 3/8        */
#define DMPAPER_ENV_12              22  /* Envelope #12 4 \276 x 11           */
#define DMPAPER_ENV_14              23  /* Envelope #14 5 x 11 1/2            */
#define DMPAPER_CSHEET              24  /* C size sheet                       */
#define DMPAPER_DSHEET              25  /* D size sheet                       */
#define DMPAPER_ESHEET              26  /* E size sheet                       */
#define DMPAPER_ENV_DL              27  /* Envelope DL 110 x 220mm            */
#define DMPAPER_ENV_C5              28  /* Envelope C5 162 x 229 mm           */
#define DMPAPER_ENV_C3              29  /* Envelope C3  324 x 458 mm          */
#define DMPAPER_ENV_C4              30  /* Envelope C4  229 x 324 mm          */
#define DMPAPER_ENV_C6              31  /* Envelope C6  114 x 162 mm          */
#define DMPAPER_ENV_C65             32  /* Envelope C65 114 x 229 mm          */
#define DMPAPER_ENV_B4              33  /* Envelope B4  250 x 353 mm          */
#define DMPAPER_ENV_B5              34  /* Envelope B5  176 x 250 mm          */
#define DMPAPER_ENV_B6              35  /* Envelope B6  176 x 125 mm          */
#define DMPAPER_ENV_ITALY           36  /* Envelope 110 x 230 mm              */
#define DMPAPER_ENV_MONARCH         37  /* Envelope Monarch 3.875 x 7.5 in    */
#define DMPAPER_ENV_PERSONAL        38  /* 6 3/4 Envelope 3 5/8 x 6 1/2 in    */
#define DMPAPER_FANFOLD_US          39  /* US Std Fanfold 14 7/8 x 11 in      */
#define DMPAPER_FANFOLD_STD_GERMAN  40  /* German Std Fanfold 8 1/2 x 12 in   */
#define DMPAPER_FANFOLD_LGL_GERMAN  41  /* German Legal Fanfold 8 1/2 x 13 in */
#if(WINVER >= 0x0400)
#define DMPAPER_ISO_B4              42  /* B4 (ISO) 250 x 353 mm              */
#define DMPAPER_JAPANESE_POSTCARD   43  /* Japanese Postcard 100 x 148 mm     */
#define DMPAPER_9X11                44  /* 9 x 11 in                          */
#define DMPAPER_10X11               45  /* 10 x 11 in                         */
#define DMPAPER_15X11               46  /* 15 x 11 in                         */
#define DMPAPER_ENV_INVITE          47  /* Envelope Invite 220 x 220 mm       */
#define DMPAPER_RESERVED_48         48  /* RESERVED--DO NOT USE               */
#define DMPAPER_RESERVED_49         49  /* RESERVED--DO NOT USE               */
#define DMPAPER_LETTER_EXTRA        50  /* Letter Extra 9 \275 x 12 in        */
#define DMPAPER_LEGAL_EXTRA         51  /* Legal Extra 9 \275 x 15 in         */
#define DMPAPER_TABLOID_EXTRA       52  /* Tabloid Extra 11.69 x 18 in        */
#define DMPAPER_A4_EXTRA            53  /* A4 Extra 9.27 x 12.69 in           */
#define DMPAPER_LETTER_TRANSVERSE   54  /* Letter Transverse 8 \275 x 11 in   */
#define DMPAPER_A4_TRANSVERSE       55  /* A4 Transverse 210 x 297 mm         */
#define DMPAPER_LETTER_EXTRA_TRANSVERSE 56 /* Letter Extra Transverse 9\275 x 12 in */
#define DMPAPER_A_PLUS              57  /* SuperA/SuperA/A4 227 x 356 mm      */
#define DMPAPER_B_PLUS              58  /* SuperB/SuperB/A3 305 x 487 mm      */
#define DMPAPER_LETTER_PLUS         59  /* Letter Plus 8.5 x 12.69 in         */
#define DMPAPER_A4_PLUS             60  /* A4 Plus 210 x 330 mm               */
#define DMPAPER_A5_TRANSVERSE       61  /* A5 Transverse 148 x 210 mm         */
#define DMPAPER_B5_TRANSVERSE       62  /* B5 (JIS) Transverse 182 x 257 mm   */
#define DMPAPER_A3_EXTRA            63  /* A3 Extra 322 x 445 mm              */
#define DMPAPER_A5_EXTRA            64  /* A5 Extra 174 x 235 mm              */
#define DMPAPER_B5_EXTRA            65  /* B5 (ISO) Extra 201 x 276 mm        */
#define DMPAPER_A2                  66  /* A2 420 x 594 mm                    */
#define DMPAPER_A3_TRANSVERSE       67  /* A3 Transverse 297 x 420 mm         */
#define DMPAPER_A3_EXTRA_TRANSVERSE 68  /* A3 Extra Transverse 322 x 445 mm   */
#endif /* WINVER >= 0x0400 */

#if(WINVER >= 0x0500)
#define DMPAPER_DBL_JAPANESE_POSTCARD 69 /* Japanese Double Postcard 200 x 148 mm */
#define DMPAPER_A6                  70  /* A6 105 x 148 mm                 */
#define DMPAPER_JENV_KAKU2          71  /* Japanese Envelope Kaku #2       */
#define DMPAPER_JENV_KAKU3          72  /* Japanese Envelope Kaku #3       */
#define DMPAPER_JENV_CHOU3          73  /* Japanese Envelope Chou #3       */
#define DMPAPER_JENV_CHOU4          74  /* Japanese Envelope Chou #4       */
#define DMPAPER_LETTER_ROTATED      75  /* Letter Rotated 11 x 8 1/2 11 in */
#define DMPAPER_A3_ROTATED          76  /* A3 Rotated 420 x 297 mm         */
#define DMPAPER_A4_ROTATED          77  /* A4 Rotated 297 x 210 mm         */
#define DMPAPER_A5_ROTATED          78  /* A5 Rotated 210 x 148 mm         */
#define DMPAPER_B4_JIS_ROTATED      79  /* B4 (JIS) Rotated 364 x 257 mm   */
#define DMPAPER_B5_JIS_ROTATED      80  /* B5 (JIS) Rotated 257 x 182 mm   */
#define DMPAPER_JAPANESE_POSTCARD_ROTATED 81 /* Japanese Postcard Rotated 148 x 100 mm */
#define DMPAPER_DBL_JAPANESE_POSTCARD_ROTATED 82 /* Double Japanese Postcard Rotated 148 x 200 mm */
#define DMPAPER_A6_ROTATED          83  /* A6 Rotated 148 x 105 mm         */
#define DMPAPER_JENV_KAKU2_ROTATED  84  /* Japanese Envelope Kaku #2 Rotated */
#define DMPAPER_JENV_KAKU3_ROTATED  85  /* Japanese Envelope Kaku #3 Rotated */
#define DMPAPER_JENV_CHOU3_ROTATED  86  /* Japanese Envelope Chou #3 Rotated */
#define DMPAPER_JENV_CHOU4_ROTATED  87  /* Japanese Envelope Chou #4 Rotated */
#define DMPAPER_B6_JIS              88  /* B6 (JIS) 128 x 182 mm           */
#define DMPAPER_B6_JIS_ROTATED      89  /* B6 (JIS) Rotated 182 x 128 mm   */
#define DMPAPER_12X11               90  /* 12 x 11 in                      */
#define DMPAPER_JENV_YOU4           91  /* Japanese Envelope You #4        */
#define DMPAPER_JENV_YOU4_ROTATED   92  /* Japanese Envelope You #4 Rotated*/
#define DMPAPER_P16K                93  /* PRC 16K 146 x 215 mm            */
#define DMPAPER_P32K                94  /* PRC 32K 97 x 151 mm             */
#define DMPAPER_P32KBIG             95  /* PRC 32K(Big) 97 x 151 mm        */
#define DMPAPER_PENV_1              96  /* PRC Envelope #1 102 x 165 mm    */
#define DMPAPER_PENV_2              97  /* PRC Envelope #2 102 x 176 mm    */
#define DMPAPER_PENV_3              98  /* PRC Envelope #3 125 x 176 mm    */
#define DMPAPER_PENV_4              99  /* PRC Envelope #4 110 x 208 mm    */
#define DMPAPER_PENV_5              100 /* PRC Envelope #5 110 x 220 mm    */
#define DMPAPER_PENV_6              101 /* PRC Envelope #6 120 x 230 mm    */
#define DMPAPER_PENV_7              102 /* PRC Envelope #7 160 x 230 mm    */
#define DMPAPER_PENV_8              103 /* PRC Envelope #8 120 x 309 mm    */
#define DMPAPER_PENV_9              104 /* PRC Envelope #9 229 x 324 mm    */
#define DMPAPER_PENV_10             105 /* PRC Envelope #10 324 x 458 mm   */
#define DMPAPER_P16K_ROTATED        106 /* PRC 16K Rotated                 */
#define DMPAPER_P32K_ROTATED        107 /* PRC 32K Rotated                 */
#define DMPAPER_P32KBIG_ROTATED     108 /* PRC 32K(Big) Rotated            */
#define DMPAPER_PENV_1_ROTATED      109 /* PRC Envelope #1 Rotated 165 x 102 mm */
#define DMPAPER_PENV_2_ROTATED      110 /* PRC Envelope #2 Rotated 176 x 102 mm */
#define DMPAPER_PENV_3_ROTATED      111 /* PRC Envelope #3 Rotated 176 x 125 mm */
#define DMPAPER_PENV_4_ROTATED      112 /* PRC Envelope #4 Rotated 208 x 110 mm */
#define DMPAPER_PENV_5_ROTATED      113 /* PRC Envelope #5 Rotated 220 x 110 mm */
#define DMPAPER_PENV_6_ROTATED      114 /* PRC Envelope #6 Rotated 230 x 120 mm */
#define DMPAPER_PENV_7_ROTATED      115 /* PRC Envelope #7 Rotated 230 x 160 mm */
#define DMPAPER_PENV_8_ROTATED      116 /* PRC Envelope #8 Rotated 309 x 120 mm */
#define DMPAPER_PENV_9_ROTATED      117 /* PRC Envelope #9 Rotated 324 x 229 mm */
#define DMPAPER_PENV_10_ROTATED     118 /* PRC Envelope #10 Rotated 458 x 324 mm */
#endif /* WINVER >= 0x0500 */

#if (WINVER >= 0x0500)
#define DMPAPER_LAST                DMPAPER_PENV_10_ROTATED
#elif (WINVER >= 0x0400)
#define DMPAPER_LAST                DMPAPER_A3_EXTRA_TRANSVERSE
#else
#define DMPAPER_LAST                DMPAPER_FANFOLD_LGL_GERMAN
#endif

#define DMPAPER_USER                256
*/
Integer li_rc
any la_buff
Return of_Printer ( printername, 5, la_buff, papersize,paperwidth,paperheight )

end function

public function string of_getpbprinter ();String ls_printer
Integer li_Pos
ls_printer = ProfileString ( "win.ini", "windows", "device", "" )

//messagebox('',ls_printer)
//setProfileString ( "win.ini", "windows", "device", "HP LaserJet 5L" )
//ls_printer = ProfileString ( "win.ini", "windows", "device", "" )
//
//messagebox('',ls_printer)

If ls_printer = "" then Return ""

li_Pos = Pos ( ls_printer, "," )
If li_Pos <> 0 Then
	ls_printer = Left ( ls_printer, li_Pos - 1 )
End If

Return ls_printer
end function

public function integer of_setdefault (string printername);// 设置为缺省打印机
//integer li_size, li_width, li_length
//any la_any
//Return of_Printer( printername, 105, la_any, li_size, li_width, li_length )
//
//
string ls_s
ls_s=f_ProfileString (sys_empid,"devices", printername, 'winspool,')
f_SetProfileString (sys_empid,"windows", "device", printername+','+ls_s)
Return 1

end function

private function string of_getstringfromblob (blob source, integer offset);// 从指定位置得到一个以0结束的字符串
String ls_char, ls_target
Integer li_i
For li_i = offset To Len ( source )
	ls_char = String ( BlobMid ( source, li_i, 1 ) )
	If Len ( ls_char )  = 0 Then Exit
	ls_target += ls_char
Next

Return ls_target
end function

private function integer of_modifyprinter (string printername, str_devmode devmode);// 修改打印机参数
// 仅供内部使用
// 与打印机有关的操作
// return 1: 成功
// return -1: 不成功

str_Printer_info_2 lstr_info
str_Printer_defaults lstr_default
str_devmode lstr_devmode
Integer li_rc, li_i
string ls_DriverName, ls_PortName
ulong ll_handle, ll_cbbuf, ll_cbNeeded
blob lbl_buffer

// 打开打印机
If Not OpenPrinter ( printername, ll_handle, ref lstr_default ) Then Return -1
ll_cbbuf = 0

// 取打印机驱动名称
ll_cbBuf = 0

l_SetBuffer:
lbl_buffer = Blob ( Space ( ll_cbBuf ) )
If Not GetPrinter ( ll_handle, 2, ref lbl_buffer, ll_cbBuf, ll_cbNeeded ) Then
	If ll_cbNeeded > ll_cbBuf Then
		ll_cbBuf = ll_cbNeeded
		Goto l_SetBuffer
	Else
		li_rc = -1
		Goto l_quit
	End If
End If

// copy 至结构
CopyMem ( lstr_info, lbl_buffer, PRINTER_INFO_2_LEN )

// 驱动名、端口
ls_DriverName = String ( lstr_info.DriverName, "address" )
ls_PortName = String ( lstr_info.PortName, "address" )

// 设置更新所有属性
devMode.dmFields = 536870911
li_rc = DocumentProperties ( 0, ll_handle, ls_DriverName, 0, devmode, DM_IN_BUFFER + DM_OUT_DEFAULT )
If li_rc > 0 Then li_rc = 1

l_quit:
ClosePrinter ( ll_handle )
Return li_rc
end function

public function integer of_printsetup (unsignedlong hwnd);str_PrintDlg lstr_Dlg
str_devmode lstr_devmode
str_devnames lstr_devNames
String ls_printer, ls_driver, ls_port, ls_char
Blob lbl_buffer
ulong ll_mem, ll_length

// 初始化结构参数
lstr_Dlg.lStructSize = PRINTDLG_LEN
lstr_Dlg.hwndOwner = hwnd
lstr_Dlg.hDevMode = 0
lstr_Dlg.hDevNames = 0
lstr_Dlg.flags = PD_PRINTTOFILE + PD_NOPAGENUMS +  PD_NOSELECTION + PD_USEDEVMODECOPIESANDCOLLATE
lstr_Dlg.hInstance = 0
lstr_Dlg.lCustData = 0
lstr_Dlg.lpfnPrintHook = 0
lstr_Dlg.lpfnSetupHook = 0
lstr_Dlg.lpPrintTemplateName = 0
lstr_Dlg.lpSetupTemplateName = 0
lstr_Dlg.hPrintTemplate = 0
lstr_Dlg.hSetupTemplate = 0

If PrintDlg ( lstr_Dlg ) <> 0 Then
	// 取devmode
	ll_mem = GlobalLock ( lstr_Dlg.hDevMode )
	CopyMem ( lstr_devmode, ll_mem, DEVMODE_LEN )
	GlobalUnlock ( lstr_Dlg.hDevMode )
	
	// 取devnames
	// 这个结构记录用户设置的打印机
	// 取长度
	ll_Length = GlobalSize ( lstr_Dlg.hDevNames )
	
	ll_mem = GlobalLock ( lstr_Dlg.hDevNames )
	CopyMem ( lstr_devNames, ll_mem, DEVNAMES_LEN )
	
	// 分配空间
	lbl_buffer = Blob ( Space ( ll_length ) )
	CopyMem ( lbl_buffer, ll_mem, ll_length )
	GlobalUnlock ( lstr_Dlg.hDevNames )
	
	// 打印机名称
	ls_printer = of_GetStringFromBlob ( lbl_buffer, lstr_devNames.wDeviceOffset + 1 )
	// 驱动程序,可能是以前的16位系统留下的东西吧？
	ls_driver = of_GetStringFromBlob ( lbl_buffer, lstr_devNames.wDriverOffset + 1 )
	// 打印端口
	ls_port = of_GetStringFromBlob ( lbl_buffer, lstr_devNames.wOutputOffset + 1 )
	
	// 更新打印机属性
	of_ModifyPrinter ( ls_printer, lstr_devMode )
	// 将打印机设置为缺省打印机
	of_SetDefault ( ls_printer )
Else
	Return -1
End If

Return 1
end function

public function integer of_setpapersize (string printername, integer papersize, integer paperwidth, integer paperheight);any la_any
Return of_Printer( printername, 101, la_any, papersize,paperwidth,paperheight )
end function

public function integer of_pagesetup (unsignedlong hwnd, ref long left, ref long right, ref long top, ref long bottom);// 打印机页面设置
// 返回1:用户选择确定
// 左右上下边界放在left, right,top,bottom中返回
str_PageSetupDlg lstr_Dlg
str_devmode lstr_devmode
str_devnames lstr_devNames
String ls_printer, ls_driver, ls_port, ls_char
Blob lbl_buffer
ulong ll_mem, ll_length

// 初始化结构参数
lstr_Dlg.lStructSize = PAGESETUPDLG_LEN
lstr_Dlg.hwndOwner = hwnd
lstr_Dlg.hDevMode = 0
lstr_Dlg.hDevNames = 0
lstr_Dlg.flags = PSD_DEFAULTMINMARGINS + PSD_INHUNDREDTHSOFMILLIMETERS
lstr_Dlg.hInstance = 0
lstr_Dlg.lCustData = 0

If PageSetupDlg ( lstr_Dlg ) Then
	// 取devmode
	ll_mem = GlobalLock ( lstr_Dlg.hDevMode )
	CopyMem ( lstr_devmode, ll_mem, DEVMODE_LEN )
	GlobalUnlock ( lstr_Dlg.hDevMode )
	
	// 取devnames
	// 这个结构记录用户设置的打印机
	// 取长度
	ll_Length = GlobalSize ( lstr_Dlg.hDevNames )
	
	ll_mem = GlobalLock ( lstr_Dlg.hDevNames )
	CopyMem ( lstr_devNames, ll_mem, DEVNAMES_LEN )
	
	// 分配空间
	lbl_buffer = Blob ( Space ( ll_length ) )
	CopyMem ( lbl_buffer, ll_mem, ll_length )
	GlobalUnlock ( lstr_Dlg.hDevNames )
	
	// 打印机名称
	ls_printer = of_GetStringFromBlob ( lbl_buffer, lstr_devNames.wDeviceOffset + 1 )
	// 驱动程序,可能是以前的16位系统留下的东西吧？
	ls_driver = of_GetStringFromBlob ( lbl_buffer, lstr_devNames.wDriverOffset + 1 )
	// 打印端口
	ls_port = of_GetStringFromBlob ( lbl_buffer, lstr_devNames.wOutputOffset + 1 )
	
	// 更新打印机属性
	of_ModifyPrinter ( ls_printer, lstr_devMode )
	// 将打印机设置为缺省打印机
	of_SetDefault ( ls_printer )
	
	Left = lstr_Dlg.rtMargin.Left
	Right = lstr_Dlg.rtMargin.Right
	Top = lstr_Dlg.rtMargin.Top
	Bottom = lstr_Dlg.rtMargin.Bottom
Else
	Return -1
End If

Return 1
end function

on uo_rpt_printer_setting.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_rpt_printer_setting.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event constructor;//// 形成打印机列表
//String ls_list [ ]
//String ls_driver, ls_port, ls_PBPrinter
//Integer li_i, li_count, li_size, li_width, li_length, li_row
//datawindow ldw_list
//ldw_list = tab_1.tabpage_1.dw_list
//
//// 取打印机列表
//li_count = lnv_printer.of_GetPrinterList ( ls_list )
//
//// 取PB缺省打印机
//ls_PBPrinter = lnv_printer.of_GetPBPrinter ( )
//
//// 清除数据
//li_row = ldw_list.GetRow ( )
//
//ldw_list.SetRedraw ( False )
//ldw_list.Reset ( )
//For li_i = 1 To li_count
//	ldw_list.InsertRow ( 0 )
//	ldw_list.Setitem ( li_i, "printername", ls_list [ li_i ] )
//	ls_driver = lnv_printer.of_GetDriverName ( ls_list [ li_i ] )
//	ls_port = lnv_printer.of_GetPortName ( ls_list [ li_i ] )
//	ldw_list.setitem ( li_i, "drivername", ls_driver )
//	ldw_list.setitem ( li_i, "portname", ls_port )
//	
//	If ls_PBPrinter = ls_list [ li_i ] Then
//		ldw_list.Setitem ( li_i, "pbdefault", 1 )
//	End If
//	
//	// 取打印纸大小
//	lnv_printer.of_GetPaperSize ( ls_list [ li_i ], li_size, li_width, li_length )
//	ldw_list.Setitem ( li_i, "papersize", li_size )
//	ldw_list.Setitem ( li_i, "paperwidth", li_width )
//	ldw_list.Setitem ( li_i, "paperheight", li_length )
//Next
//
//If li_row <> 0 Then
//	ldw_list.ScrollToRow ( li_row )
//End If
//
//ldw_list.setRedraw ( True )
//Return 1
end event