home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code2
/
printset
/
prsetup.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-07-27
|
6KB
|
150 lines
PrintSetup
Printer Setup
Form1
Label1
&Printer
List1
Command1
Command2
Cancel
Command3
Setup ...
Label2
fCopyright (c) 1991 Corey Schwartz, Programmer's Warehouse 602-443-0580, 73240,2734 All Rights Reserved
Form_Click
lbLoad
lbGetPrt
cBuff1
SIZETEMPBUFF=
cBuff2
hMem2
hWndList
cchNext
ichSearcht
lpKey
Index
wIndex
GlobalAllocW
GMEM_MOVABLEl
MAXKEYBUFFERI
GlobalLock
GlobalUnlock
GlobalFree
lbsetup
GetProfileString
StrIndex
NullPos
lpKeyNameQ
lpKeyList
DeviceName
NextCommag
NextComm_
DoneO
List1u
Str10
Command2_Click
PrintSetup
Command1_Click
@ Form_Load!
LPT2~
width
ListIndex
lbLookup
ListCount
List1_Click[
List1_DblClick
LoadCursorG
IDC_WAIT
SetCursor
Screen
MousePointer
pauseT
lbParse
SrcStr
lpName
lpPort~
lpDriver
SrcString
strlen
lpPrinter$
OpenFile
fstru
OF_EXIST
OF_READ
TempStr`
TEMPF
OFSTRUCT
LaserJet2
hmemDM;
GetDefaultPrinter
define
DM_UPDATES
DM_COPY|
DM_PROMPTm
DM_MODIFY
CallProc
dmOut[
lpPro
wMode
hDriver,
LoadLibrary
FreeLibrary
lpfnMode
GetProcAddressO
wSizeDM9
LocalAlloc
LocalLock"
LocalUnlock=
dummy
DM_MODI
Command3_Click~
AccessPrinter
SetDef
Flags
UpdatePrt
wFlags
FALSE
Label1_Click
kbDaemon
KeyAscii
GotFocus
Command1_KeyPress
Command2_KeyPress
Command3_KeyPress
Form_KeyPress
SIZETEMPBUFFER
MAXBUFFERSIZE
MAXKEYBUFF
CallAddr.DLL2
Kernelt
lbsetup
Devices"
No Devices Available
Devices"
The string Returned should be in the form:
PCL / HP LaserJet,HPPCL,LPT1:,LPT2:
Get the device Namet
Loop Through the devices adding a string to the listbox Controlx
Get Default Printeri
Windows"
Device
Command2_Click
Command1_Click
Form_Load
lbLookup
List1_DblClick
lbParse
We assume that the input string is
in the form: <Printer> on <Port>
devices"
Command3_Click
AccessPrinter
EXTDEVICEMODE"
WIN.INI"
WIN.INI"
kbDaemon
Command1_KeyPress
Command2_KeyPress
Command3_KeyPress
Form_KeyPress