Included:

PPRTR DLL THE real deal
READ ME this
PPRTR FRM .. \ Visual
PPRTR MAK ..> Basic
PPRTR BAS .. / Example
PPGLOBAL TXT VB constants
PPRTR TXT VB function declare

definition:

PPrtr Lib "PPRTR.DLL" (ByVal hWnd As Integer, ByVal ppSelection As Integer, ByVal PPNewValue As Integer, ByVal ppAction As Integer) As Integer

where: hWnd ................ is a window handle
ppSelection ......... is the selected printer device
attribute to get/change
ppNewValue .......... is the value to change it to
. (anything will do call is a
gimme, no change )
. see PPGLOBAL.TXT for available
values
ppAction ............ is the action requested
0 = gimme current value
1 = change it to ppNewValue
returns ......... integer of value of selected attribute
before the call

ppSelection:
DM_ORIENTATION = &H1
DM_PAPERSIZE = &H2
DM_PAPERLENGTH = &H4
DM_PAPERWIDTH = &H8
DM_SCALE = &H10
DM_COPIES = &H100
DM_DEFAULTSOURCE = &H200
DM_PRINTQUALITY = &H400
DM_COLOR = &H800
DM_DUPLEX = &H1000
DM_YRESOLUTION = &H2000
DM_TTOPTION = &H4000


Samples:

PPrtr(hWnd, DM_PAPERSIZE, PP_UNNEEDED, PP_GIMME))
PPrtr(hWnd, DM_ORIENTATION, PP_UNNEEDED, PP_GIMME))

PPrtr(hWnd, DM_ORIENTATION, DMORIENT_PORTRAIT, PP_CHANGE_IT))
PPrtr(hWnd, DM_PAPERSIZE, DMPAPER_LEGAL, PP_CHANGE_IT))

--------------------------------------------------------------------
Hope these are helpful. There are others(see WINP1.1 in basic forum,
WINPRTLS coming soon). If they prove useful, please send a $10 check
to PAUL POELLINGER
2019 Round Lake Drive
Houston, TX 77077
to help me justify deducting software upgrades on my taxes.
--------------------------------------------------------------------
Let me know if you have any trouble or suggestions.

Paul Poellinger
Compuserve 70732,3576
2-18-93