Dec 052017
 
Visual Basic .DLL to manipulate current printer settings.
File PPRTR.ZIP from The Programmer’s Corner in
Category BASIC Language
Visual Basic .DLL to manipulate current printer settings.
File Name File Size Zip Size Zip Type
PPGLOBAL.TXT 5037 1441 deflated
PPRTR.BAS 5388 2683 deflated
PPRTR.DLL 7514 3781 deflated
PPRTR.FRM 1491 768 deflated
PPRTR.MAK 66 54 deflated
PPRTR.TXT 162 97 deflated
READ.ME 2497 922 deflated
TPCREAD.ME 199 165 deflated

Download File PPRTR.ZIP Here

Contents of the READ.ME file


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


 December 5, 2017  Add comments

Leave a Reply