S
Shorty
I just read Chip Pearson's hints for new users. He
recommends including data and output. It's quite a bit.
I'll organize the following by:
code,
source information,
Expected PrintOut_Method Results,
Sample of the actual PrintOut_Method Results in Win 2k
Pro environment,
Sample of the actual PrintOut_Method Results in Win XP
Home environment.
I want to use the PrintOut Method to print to a file so I
can study the flow of the code and determine how to add
the capability I need to add. I need to print to a file
because the Immediate Window does not hold enouth
information.
Thanks in advance for the help (to get the print to file
method to work).
Here goes:
Code:
Sub Quickie_X12()
'
' This routine controls the application
'
' Quickie_X12 Macro
'
FileNum = FreeFile 'Prints the results of the
code to a file
Call Prn_Sheet2(FileNum)
Call Read_WBS(FileNum)
Close #FileNum
End Sub
Sub Prn_Sheet2(FileNum)
'
' Called by Sub Quickie_X12
'
' '
ActiveSheet.PrintOut printtofile:=True,
prtofilename:="Print Out Method Example.txt"
'
and so on.
End Sub
=======================================================
Expected contents of output file (Print Out Method
Example.txt) was the contents of the active worksheet:
Ouput File Print Out Method Example.txt
WBS Number WBS Description LVL BCWS BCWP
ACWP BAC LRE
1 Level 1 1 7278.6 6850.8 7349.8 20796.2
20761.0
1.1 First level 2 2
1.1.1 First level 3 3
1.1.1.1 First level 4 4
1.1.1.1.1 First level 5 5 294.6 282.6
300.0 618.4 621.6
1.1.1.1.2 First level 5 5 234.6 241.0
267.4 283.4 283.4
1.1.1.1.3 First level 5 5 353.4 345.8
363.2 482.8 513.6
1.1.1.1.4 First level 5 5
1.1.1.2 Second level 4 (under 1st lvl 3) 4
1.1.1.2.1 Second level 5 (under 2nd lvl 4) 5
1.1.1.2.1.1 1st Level 6 under Second lvl 5 6
910.6 707.4 838.2 2043.0 2130.0
1.1.1.2.1.2 2nd Level 6 under Second lvl 5 6
759.8 666.6 588.4 2418.2 2409.8
1.1.1.2.1.3 3rd Level 6 under Second lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.1.4 4th Level 6 under Second lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.1.5 5th Level 6 under Second lvl 5 6
1692.8 1681.4 1977.6 5800.6 5987.8
1.1.1.2.1.6 6th Level 6 under Second lvl 5 6
272.6 159.6 159.6 388.0 388.0
1.1.1.2.1.7 7th Level 6 under Second lvl 5 6
426.8 509.8 534.0 1440.0 1464.8
1.1.1.2.1.8 8th Level 6 under Second lvl 5 6
133.8 135.0 142.8 755.6 761.8
1.1.1.2.1.9 9th Level 6 under Second lvl 5 6
98.8 92.2 110.0 127.0 143.0
1.1.1.2.1.10 10th Level 6 under Second lvl 5 6
19.0 12.4 17.0 32.2 32.2
1.1.1.2.2 Third level 5 (under 2nd lvl 4) 5
1.1.1.2.2.1 1st Level 6 under Third lvl 5 6
98.8 92.2 110.0 127.0 143.0
1.1.1.2.2.2 2nd Level 6 under Third lvl 5 6
19.0 12.4 17.0 32.2 32.2
1.1.1.2.2.3 3rd Level 6 under Third lvl 5 6
910.6 707.4 838.2 2043.0 2130.0
1.1.1.2.2.4 4th Level 6 under Third lvl 5 6
759.8 666.6 588.4 2418.2 2409.8
1.1.1.2.2.5 5th Level 6 under Third lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.2.6 6th Level 6 under Third lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.3 Fourth level 5 5
1.1.1.2.3.1 1st Level 6 under Fourth lvl 5 6
98.8 92.2 110.0 127.0 143.0
1.1.1.2.3.2 2nd Level 6 under Fourth lvl 5 6
19.0 12.4 17.0 32.2 32.2
1.1.1.2.3.3 3rd Level 6 under Fourth lvl 5 6
910.6 707.4 838.2 2043.0 2130.0
1.1.1.2.3.4 4th Level 6 under Fourth lvl 5 6
759.8 666.6 588.4 2418.2 2409.8
1.1.1.2.3.5 5th Level 6 under Fourth lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.3.6 6th Level 6 under Fourth lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.3.7 7th Level 6 under Fourth lvl 5 6
426.8 509.8 534.0 1440.0 1464.8
1.1.1.2.4 Fifth level 5 5
1.1.1.2.4.1 1st Level 6 under Fifth lvl 5 6
910.6 707.4 838.2 2043.0 2130.0
1.1.1.2.4.2 2nd Level 6 under Fifth lvl 5 6
759.8 666.6 588.4 2418.2 2409.8
1.1.1.2.4.3 3rd Level 6 under Fifth lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.4.4 4th Level 6 under Fifth lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.4.4 5th Level 6 under Fifth lvl 5 6
1692.8 1681.4 1977.6 5800.6 5987.8
1.1.1.2.4.5 6th Level 6 under Fifth lvl 5 6
272.6 159.6 159.6 388.0 388.0
1.1.1.2.4.6 7th Level 6 under Fifth lvl 5 6
426.8 509.8 534.0 1440.0 1464.8
1.1.1.2.4.7 8th Level 6 under Fifth lvl 5 6
133.8 135.0 142.8 755.6 761.8
1.1.1.2.4.8 9th Level 6 under Fifth lvl 5 6
2007 2025 2142 11334 11427
1.1.1.2.5 Sixth level 5 5
1.1.1.2.5.1 1st Level 6 under Sixth lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.5.2 2nd Level 6 under Sixth lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.5.3 3rd Level 6 under Sixth lvl 5 6
1692.8 1681.4 1977.6 5800.6 5987.8
1.1.1.2.5.4 4th Level 6 under Sixth lvl 5 6
272.6 159.6 159.6 388.0 388.0
1.1.1.2.5.5 5th Level 6 under Sixth lvl 5 6
426.8 509.8 534.0 1440.0 1464.8
1.1.1.2.5.6 6th Level 6 under Sixth lvl 5 6
133.8 135.0 142.8 755.6 761.8
1.1.1.3 Third level 4 4
1.1.1.3.1 Seventh level 5 (under Third lvl 4) 5
88.0 87.8 84.4 189.0 190.4
1.1.1.3.2 Eighth level 5 (under Third lvl 4) 5
1692.8 1681.4 1977.6 5800.6 5987.8
1.2 Second level 2 2
1.2.1 Second level 3 3
1.2.1.1 Fourth level 4 4
1.2.1.1.1 Ninth level 5 (under Fourth lvl 4) 5
1.2.1.1.1.1 1st Level 6 under Ninth lvl 5 6
234.6 241.0 267.4 283.4 283.4
1.2.1.1.1.2 2nd Level 6 under Ninth lvl 5 6
353.4 345.8 363.2 482.8 513.6
==========================================================
Sample of the actual PrintOut_Method Results in Win 2k
Pro,
%-12345X@PJL JOB
@PJL SET STRINGCODESET=UTF8
@PJL COMMENT "m3444hp4200_q1 (60.3.14.2); Microsoft
Windows 2000 5.0.2195.1; PScript 0.3.1282.1"
@PJL COMMENT "Username: UNKNOWN; App Filename: ; 6-25-
1615"
@PJL SET JOBATTR="JobAcct1=UNKNOWN"
@PJL SET JOBATTR="JobAcct2=ISC"
@PJL SET JOBATTR="JobAcct3=TERRELL"
@PJL SET JOBATTR="JobAcct4=16150626014533"
@PJL SET RET=MEDIUM
@PJL SET RESOLUTION=600
@PJL SET BITSPERPIXEL=2
@PJL SET ECONOMODE=OFF
@PJL ENTER LANGUAGE=POSTSCRIPT
%!PS-Adobe-3.0
%%Title: CAP Release 1.1-C Fixed Price_X12.xls
%%Creator: PScript5.dll Version 5.2
%%CreationDate: 4/20/2004 19:17:29
%%For: UNKNOWN
%%BoundingBox: (atend)
%%Pages: (atend)
%%Orientation: Portrait
%%PageOrder: Special
%%DocumentNeededResources: (atend)
%%DocumentSuppliedResources: (atend)
%%DocumentData: Clean7Bit
%%TargetDevice: (HP LaserJet 4200) (3010.107) 0
%%LanguageLevel: 3
%%EndComments
%%BeginDefaults
%%PageBoundingBox: 12 12 599 779
%%ViewingOrientation: 1 0 0 1
%%EndDefaults
%%BeginProlog
%%BeginResource: file Pscript_WinNT_ErrorHandler 5.0 0
/currentpacking where{pop/oldpack currentpacking
def/setpacking where{pop false
setpacking}if}if/$brkpage 64 dict def $brkpage begin/prnt
{dup type/stringtype
ne{=string cvs}if dup length 6 mul/tx exch def/ty 10 def
currentpoint/toy exch
def/tox exch def 1 setgray newpath tox toy 2 sub moveto 0
ty rlineto tx 0
rlineto 0 ty neg rlineto closepath fill tox toy moveto 0
setgray show}bind def
/nl{currentpoint exch pop lmargin exch moveto 0 -10
rmoveto}def/=={/cp 0 def
typeprint nl}def/typeprint{dup type exec}readonly
def/lmargin 72 def/rmargin 72
def/tprint{dup length cp add rmargin gt{nl/cp 0 def}if
dup length cp add/cp
exch def prnt}readonly def/cvsprint{=string cvs tprint( )
tprint}readonly def
/integertype{cvsprint}readonly def/realtype{cvsprint}
readonly def/booleantype
{cvsprint}readonly def/operatortype{(--)tprint =string
cvs tprint(-- )tprint}
readonly def/marktype{pop(-mark- )tprint}readonly
def/dicttype{pop
(-dictionary- )tprint}readonly def/nulltype{pop(-null- )
tprint}readonly def
/filetype{pop(-filestream- )tprint}readonly def/savetype
{pop(-savelevel- )
tprint}readonly def/fonttype{pop(-fontid- )tprint}
readonly def/nametype{dup
xcheck not{(/)tprint}if cvsprint}readonly def/stringtype
{dup rcheck{(\()tprint
tprint(\))tprint}{pop(-string- )tprint}ifelse}readonly
def/arraytype{dup rcheck
{dup xcheck{({)tprint{typeprint}forall(})tprint}{([)tprint
{typeprint}forall(])
tprint}ifelse}{pop(-array- )tprint}ifelse}readonly
def/packedarraytype{dup
rcheck{dup xcheck{({)tprint{typeprint}forall(})tprint}{([)
tprint{typeprint}
forall(])tprint}ifelse}{pop(-packedarray- )tprint}ifelse}
readonly def/courier
/Courier findfont 10 scalefont def end
errordict/handleerror{systemdict begin
$error begin $brkpage begin newerror{/newerror false
store vmstatus pop pop 0
ne{grestoreall}if errorname(VMerror)ne{showpage}if
initgraphics courier setfont
lmargin 720 moveto errorname(VMerror)eq{userdict/ehsave
known{clear userdict
/ehsave get restore 2 vmreclaim}if vmstatus exch pop exch
pop PrtVMMsg}{
(ERROR: )prnt errorname prnt nl(OFFENDING COMMAND: )
prnt/command load prnt
$error/ostack known{nl nl(STACK
prnt nl nl $error/ostack
get aload length{==}
repeat}if}ifelse systemdict/showpage get exec(%%[ Error: )
print errorname
=print(; OffendingCommand: )print/command load =print( ]%
%)= flush}if end end
end}dup 0 systemdict put dup 4 $brkpage put bind readonly
put/currentpacking
where{pop/setpacking where{pop oldpack setpacking}if}if
%%EndResource
userdict /Pscript_WinNT_Incr 230 dict dup begin put
%%BeginResource: file Pscript_FatalError 5.0 0
userdict begin/FatalErrorIf{{initgraphics findfont 1
index 0 eq{exch pop}{dup
length dict begin{1 index/FID ne{def}{pop pop}ifelse}
forall/Encoding
{ISOLatin1Encoding}stopped{StandardEncoding}if def
currentdict end
/ErrFont-Latin1 exch definefont}ifelse exch scalefont
setfont counttomark 3 div
cvi{moveto show}repeat showpage quit}{cleartomark}ifelse}
bind def end
%%EndResource
userdict begin/PrtVMMsg{vmstatus exch sub exch pop gt{[
(This job requires more memory than is available in this
printer.)100 500
(Try one or more of the following, and then print again
100 485
(For the output format, choose Optimize For Portability.)
115 470
(In the Device Settings page, make sure the Available
PostScript Memory is accurate.)
115 455(Reduce the number of fonts in the document.)115
440
(Print the document in parts.)115 425 12/Times-Roman
showpage
(%%[ PrinterError: Low Printer VM ]%%)= true FatalErrorIf}
if}bind def end
version cvi 2016 ge{/VM?{pop}bind def}{/VM?
userdict/PrtVMMsg get def}ifelse
105000 VM?
%%BeginResource: file Pscript_Win_Basic 5.0 0
/d/def load def/,/load load d/~/exch , d/?/ifelse ,
d/!/pop , d/`/begin , d/^
/index , d/@/dup , d/+/translate , d/$/roll ,
d/U/userdict , d/M/moveto , d/-
/rlineto , d/&/currentdict , d/:/gsave , d/;/grestore ,
d/F/false , d/T/true ,
d/N/newpath , d/E/end , d/Ac/arc , d/An/arcn ,
d/A/ashow , d/D/awidthshow , d/C
/closepath , d/V/div , d/O/eofill , d/L/fill ,
d/I/lineto , d/-c/curveto , d/-M
/rmoveto , d/+S/scale , d/Ji/setfont , d/Lc/setlinecap ,
d/Lj/setlinejoin , d
/Lw/setlinewidth , d/Lm/setmiterlimit , d/sd/setdash ,
d/S/show , d/LH/showpage
, d/K/stroke , d/W/widthshow , d/R/rotate , d/L2?
false/languagelevel where{pop
languagelevel 2 ge{pop true}if}if d L2?{/xS/xshow ,
d/yS/yshow , d/zS/xyshow ,
d}if/b{bind d}bind d/bd{bind d}bind d/xd{~ d}bd/ld{, d}
bd/bn/bind ld/lw/Lw ld
/lc/Lc ld/lj/Lj ld/sg/setgray ld/ADO_mxRot null d/self &
d/OrgMx matrix
currentmatrix d/reinitialize{: OrgMx setmatrix
[/TextInit/GraphInit/UtilsInit
counttomark{@ where{self eq}{F}?{cvx exec}{!}?}repeat
cleartomark ;}b
/initialize{`{/Pscript_Win_Data where{!}
{U/Pscript_Win_Data & put}?/ADO_mxRot ~
d/TextInitialised? F d reinitialize E}{U/Pscript_Win_Data
230 dict @ ` put
/ADO_mxRot ~ d/TextInitialised? F d reinitialize}?}
b/terminate{!{& self eq
{exit}{E}?}loop E}b/suspend/terminate , d/resume{`
Pscript_Win_Data `}b U `
/lucas 21690 d/featurebegin{countdictstack lucas[}
b/featurecleanup{stopped
{cleartomark @ lucas eq{! exit}if}loop countdictstack ~
sub @ 0 gt{{E}repeat}
{!}?}b E/snap{transform 0.25 sub round 0.25 add ~ 0.25
sub round 0.25 add ~
itransform}b/dsnap{dtransform round ~ round ~ idtransform}
b/nonzero_round{@ 0.5
ge{round}{@ -0.5 lt{round}{0 ge{1}{-1}?}?}?}
b/nonzero_dsnap{dtransform
nonzero_round ~ nonzero_round ~ idtransform}b U<04>cvn{}
put/rr{1 ^ 0 - 0 ~ -
neg 0 - C}b/irp{4 -2 $ + +S fx 4 2 $ M 1 ^ 0 - 0 ~ - neg
0 -}b/rp{4 2 $ M 1 ^ 0
- 0 ~ - neg 0 -}b/solid{[]0 sd}b/g{@ not{U/DefIf_save
save put}if U/DefIf_bool
2 ^ put}b/DefIf_El{if U/DefIf_bool get not @{U/DefIf_save
get restore}if}b/e
{DefIf_El !}b/UDF{L2?{undefinefont}{!}?}b/UDR{L2?
{undefineresource}{! !}?}b
/freeVM{/Courier findfont[40 0 0 -40 0 0]makefont Ji 2
vmreclaim}b/hfRedefFont
{findfont @ length dict `{1 ^/FID ne{d}{! !}?}forall & E
@ ` ~{/CharStrings 1
dict `/.notdef 0 d & E d}if/Encoding 256 array 0 1 255{1
^ ~/.notdef put}for d
E definefont !}bind d/hfMkCIDFont{/CIDFont findresource @
length 2 add dict `{1
^ @/FID eq ~ @/XUID eq ~/UIDBase eq or or{! !}{d}?}
forall/CDevProc ~ d/Metrics2
16 dict d/CIDFontName 1 ^ d & E 1 ^ ~/CIDFont
defineresource ![~]composefont !}
bind d
%%EndResource
%%BeginResource: file Pscript_Win_Utils_L2 5.0 0
/rf/rectfill , d/fx{1 1 dtransform @ 0 ge{1 sub 0.5}{1
add -0.5}? 3 -1 $ @ 0 ge
{1 sub 0.5}{1 add -0.5}? 3 1 $ 4 1 $ idtransform 4 -2 $
idtransform}b/BZ{4 -2 $
snap + +S fx rf}b/rs/rectstroke , d/rc/rectclip ,
d/UtilsInit{currentglobal{F
setglobal}if}b/scol{! setcolor}b/colspA/DeviceGray
d/colspABC/DeviceRGB d
/colspRefresh{colspABC setcolorspace}b/SetColSpace
{colspABC setcolorspace}b
/resourcestatus where{!/ColorRendering/ProcSet
resourcestatus{! ! T}{F}?}{F}?
not{/ColorRendering<</GetHalftoneName{currenthalftone
@/HalftoneName known{
/HalftoneName get}{!/none}?}bn/GetPageDeviceName
{currentpagedevice @
/PageDeviceName known{/PageDeviceName get @ null eq
{!/none}if}{!/none}?}bn
/GetSubstituteCRD{!/DefaultColorRendering/ColorRendering
resourcestatus{! !
/DefaultColorRendering}{(DefaultColorRendering*){cvn exit}
127 string
/ColorRendering resourceforall}?}bn>>/defineresource where
{!/ProcSet
defineresource !}{! !}?}if/buildcrdname
{/ColorRendering/ProcSet findresource `
mark GetHalftoneName @ type @/nametype ne ~/stringtype ne
and{!/none}if(.)
GetPageDeviceName @ type @/nametype ne ~/stringtype ne and
{!/none}if(.)5 ^ 0 5
-1 1{^ length add}for string 6 1 $ 5 ^ 5{~ 1 ^ cvs length
1 ^ length 1 ^ sub
getinterval}repeat ! cvn 3 1 $ ! ! E}
b/definecolorrendering{~ buildcrdname ~
/ColorRendering defineresource !}b/findcolorrendering
where{!}{
/findcolorrendering{buildcrdname @/ColorRendering
resourcestatus{! ! T}{
/ColorRendering/ProcSet findresource ` GetSubstituteCRD E
F}?}b}?
/selectcolorrendering{findcolorrendering !/ColorRendering
findresource
setcolorrendering}b/G2UBegin{findresource/FontInfo
get/GlyphNames2Unicode get
`}bind d/G2CCBegin{findresource/FontInfo
get/GlyphNames2HostCode get `}bind d
/G2UEnd{E}bind d/AddFontInfoBegin{/FontInfo 8 dict @ `}
bind d/AddFontInfo{
/GlyphNames2Unicode 16 dict d/GlyphNames2HostCode 16 dict
d}bind d
/AddFontInfoEnd{E d}bind d/T0AddCFFMtx2{/CIDFont
findresource/Metrics2 get ` d
E}bind d
%%EndResource
end
%%EndProlog
%%BeginSetup
statusdict begin (%%[ ProductName: ) print product print
( ]%%)= flush end
[ 0.898 0 0 0.898 0 0 ] false Pscript_WinNT_Incr
dup /initialize get exec
featurebegin{
%%BeginNonPPDFeature: JobTimeout 0
0 /languagelevel where{pop languagelevel}{1}ifelse 2 ge{1
dict dup/JobTimeout 4 -1 roll put setuserparams}
{statusdict/setjobtimeout get exec}ifelse
%%EndNonPPDFeature
}featurecleanup
featurebegin{
%%BeginNonPPDFeature: WaitTimeout 120
120 /languagelevel where{pop languagelevel}{1}ifelse 2 ge
{1 dict dup/WaitTimeout 4 -1 roll put setuserparams}
{statusdict/waittimeout 3 -1 roll put}ifelse
%%EndNonPPDFeature
}featurecleanup
featurebegin{
%%BeginFeature: *Collate True
<</Collate true>> setpagedevice
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *PageSize Letter
<</DeferredMediaSelection true /PageSize [612
792] /ImagingBBox null /MediaClass null>> setpagedevice
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *StapleLocation None
<< /MediaProcessing (NONE) >> setpagedevice
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *OutputBin Auto
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *MediaType Auto
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *Duplex None
<</Duplex false>> setpagedevice
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPXMLFileUsed HPXMLFileName
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPColorMode MONOCHROME_MODE
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPJobAccounting HPJOBACCT_JOBACNT
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *PrintQualityGroup PQGroup_2
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPOrientRotate180 False
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *TextAsBlack False
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *JRConstraints JRCHDPartial
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *JRHDInstalled JRHDOff
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *JRHDNotInstalled JRHDOff
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *EnvFeeder NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *Tray3 NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *Tray4 NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *AccessoryOutputBins None
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *DuplexUnit NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *InstalledMemory 48-63MB
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *PrinterHardDisk NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *JobRetention Installed
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *DeviceIsMopier Installed
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPInstallableTrayFeatureName EnvFeeder
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPInstallableTraySize EnvFeeder-100-
ENVELOPE_FEEDER
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPInstallableHCO 500Stacker-Q2442
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *ActualCustomRange 215900_355600
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPPDLType PDL_PS
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPPJLEncoding UTF8
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *ScaleFromLargePaper Installed
%%EndFeature
}featurecleanup
1 setlinecap 1 setlinejoin
/mysetup [ 72 600 V 0 0 -72 600 V 11.99905 779.0003 ] def
%%EndSetup
userdict begin /ehsave save def end
%%Page: 1 1
%%PageBoundingBox: 12 12 599 779
%%EndPageComments
%%BeginPageSetup
/DeviceRGB dup setcolorspace /colspABC exch def
mysetup concat colspRefresh
%%EndPageSetup
and a lots more
=================================================
==========================================================
Sample of the actual PrintOut_Method Results in Win XP
Home.
E&l0S*r3F&l0O&l1H&l2a8c1E*t300R&l1X*b0M
*c16534D)s64W @ + t ; U L ì < ÿ
L Cache 16534 (16534X&d@*c32E(s46W
0ðððððððððððððððððððððððððððððð*c33E
(s106W hÿÿÿÿÿÿÿÿÿÿÿÿ < < < < < < <
< < < < < < < < < < < < < < < < < < <
*c34E(s106W pÿÿüÿÿüÿÿüÿÿüð ð ð ð ð
ð ð ð ÿÿøÿÿøÿÿøÿÿøð ð ð ð ð ð ð ð ð ð
ÿÿþÿÿþÿÿþÿÿþ*c35E(s136W Oþ øþ øÿ øÿ
øÿ øÿ
ø÷?x÷?x÷?xóÀ xóÀ xóÀ xñà<xñà<xñà<xñà<xððxxððxxððxxðxðx
ðxðxðxðxð=àxð=àxð=àxð=àxð Àxð Àxð Àxð?x*v0o0T*p290Y*p1
60X !"#*c16534D*c36E(s136W pð àø àx
Àx À| À< ?< ? ?> ?< ?< À| Àx
Àx àø àð áð ñà ñà ûà {À {À À ?? ?? ??
*c37E(s136W p ?? ;? ;? {À
qÀ ñà àà àà àð Àp Àx Àx ?8 ?< ÿü ÿþ ÿþ ÿþ
< ?< ?< ?x Àx Àø àð à*c38E(s106W
\ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð
ð ð ð ð ð ð ð ð ð ÿÿàÿÿàÿÿàÿÿà*c39E(s106W
xð ð ð ð ð ð ð ð ð ð ð ð ð ð ð
ð ð ð ð ð ð ð x x | >? ü?ÿø ÿðÿà ÿ *p956X$%
&'"*c16534D*c40E(s136W x ?? ÿð ÿø ÿü
À~ ? > | ?x ?x ø ð ð ð ð ð ð ð
and a lot more
Thanks again,
Shorty
recommends including data and output. It's quite a bit.
I'll organize the following by:
code,
source information,
Expected PrintOut_Method Results,
Sample of the actual PrintOut_Method Results in Win 2k
Pro environment,
Sample of the actual PrintOut_Method Results in Win XP
Home environment.
I want to use the PrintOut Method to print to a file so I
can study the flow of the code and determine how to add
the capability I need to add. I need to print to a file
because the Immediate Window does not hold enouth
information.
Thanks in advance for the help (to get the print to file
method to work).
Here goes:
Code:
Sub Quickie_X12()
'
' This routine controls the application
'
' Quickie_X12 Macro
'
FileNum = FreeFile 'Prints the results of the
code to a file
Call Prn_Sheet2(FileNum)
Call Read_WBS(FileNum)
Close #FileNum
End Sub
Sub Prn_Sheet2(FileNum)
'
' Called by Sub Quickie_X12
'
' '
ActiveSheet.PrintOut printtofile:=True,
prtofilename:="Print Out Method Example.txt"
'
and so on.
End Sub
=======================================================
Expected contents of output file (Print Out Method
Example.txt) was the contents of the active worksheet:
Ouput File Print Out Method Example.txt
WBS Number WBS Description LVL BCWS BCWP
ACWP BAC LRE
1 Level 1 1 7278.6 6850.8 7349.8 20796.2
20761.0
1.1 First level 2 2
1.1.1 First level 3 3
1.1.1.1 First level 4 4
1.1.1.1.1 First level 5 5 294.6 282.6
300.0 618.4 621.6
1.1.1.1.2 First level 5 5 234.6 241.0
267.4 283.4 283.4
1.1.1.1.3 First level 5 5 353.4 345.8
363.2 482.8 513.6
1.1.1.1.4 First level 5 5
1.1.1.2 Second level 4 (under 1st lvl 3) 4
1.1.1.2.1 Second level 5 (under 2nd lvl 4) 5
1.1.1.2.1.1 1st Level 6 under Second lvl 5 6
910.6 707.4 838.2 2043.0 2130.0
1.1.1.2.1.2 2nd Level 6 under Second lvl 5 6
759.8 666.6 588.4 2418.2 2409.8
1.1.1.2.1.3 3rd Level 6 under Second lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.1.4 4th Level 6 under Second lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.1.5 5th Level 6 under Second lvl 5 6
1692.8 1681.4 1977.6 5800.6 5987.8
1.1.1.2.1.6 6th Level 6 under Second lvl 5 6
272.6 159.6 159.6 388.0 388.0
1.1.1.2.1.7 7th Level 6 under Second lvl 5 6
426.8 509.8 534.0 1440.0 1464.8
1.1.1.2.1.8 8th Level 6 under Second lvl 5 6
133.8 135.0 142.8 755.6 761.8
1.1.1.2.1.9 9th Level 6 under Second lvl 5 6
98.8 92.2 110.0 127.0 143.0
1.1.1.2.1.10 10th Level 6 under Second lvl 5 6
19.0 12.4 17.0 32.2 32.2
1.1.1.2.2 Third level 5 (under 2nd lvl 4) 5
1.1.1.2.2.1 1st Level 6 under Third lvl 5 6
98.8 92.2 110.0 127.0 143.0
1.1.1.2.2.2 2nd Level 6 under Third lvl 5 6
19.0 12.4 17.0 32.2 32.2
1.1.1.2.2.3 3rd Level 6 under Third lvl 5 6
910.6 707.4 838.2 2043.0 2130.0
1.1.1.2.2.4 4th Level 6 under Third lvl 5 6
759.8 666.6 588.4 2418.2 2409.8
1.1.1.2.2.5 5th Level 6 under Third lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.2.6 6th Level 6 under Third lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.3 Fourth level 5 5
1.1.1.2.3.1 1st Level 6 under Fourth lvl 5 6
98.8 92.2 110.0 127.0 143.0
1.1.1.2.3.2 2nd Level 6 under Fourth lvl 5 6
19.0 12.4 17.0 32.2 32.2
1.1.1.2.3.3 3rd Level 6 under Fourth lvl 5 6
910.6 707.4 838.2 2043.0 2130.0
1.1.1.2.3.4 4th Level 6 under Fourth lvl 5 6
759.8 666.6 588.4 2418.2 2409.8
1.1.1.2.3.5 5th Level 6 under Fourth lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.3.6 6th Level 6 under Fourth lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.3.7 7th Level 6 under Fourth lvl 5 6
426.8 509.8 534.0 1440.0 1464.8
1.1.1.2.4 Fifth level 5 5
1.1.1.2.4.1 1st Level 6 under Fifth lvl 5 6
910.6 707.4 838.2 2043.0 2130.0
1.1.1.2.4.2 2nd Level 6 under Fifth lvl 5 6
759.8 666.6 588.4 2418.2 2409.8
1.1.1.2.4.3 3rd Level 6 under Fifth lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.4.4 4th Level 6 under Fifth lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.4.4 5th Level 6 under Fifth lvl 5 6
1692.8 1681.4 1977.6 5800.6 5987.8
1.1.1.2.4.5 6th Level 6 under Fifth lvl 5 6
272.6 159.6 159.6 388.0 388.0
1.1.1.2.4.6 7th Level 6 under Fifth lvl 5 6
426.8 509.8 534.0 1440.0 1464.8
1.1.1.2.4.7 8th Level 6 under Fifth lvl 5 6
133.8 135.0 142.8 755.6 761.8
1.1.1.2.4.8 9th Level 6 under Fifth lvl 5 6
2007 2025 2142 11334 11427
1.1.1.2.5 Sixth level 5 5
1.1.1.2.5.1 1st Level 6 under Sixth lvl 5 6
261.2 251.0 238.4 599.2 594.6
1.1.1.2.5.2 2nd Level 6 under Sixth lvl 5 6
88.0 87.8 84.4 189.0 190.4
1.1.1.2.5.3 3rd Level 6 under Sixth lvl 5 6
1692.8 1681.4 1977.6 5800.6 5987.8
1.1.1.2.5.4 4th Level 6 under Sixth lvl 5 6
272.6 159.6 159.6 388.0 388.0
1.1.1.2.5.5 5th Level 6 under Sixth lvl 5 6
426.8 509.8 534.0 1440.0 1464.8
1.1.1.2.5.6 6th Level 6 under Sixth lvl 5 6
133.8 135.0 142.8 755.6 761.8
1.1.1.3 Third level 4 4
1.1.1.3.1 Seventh level 5 (under Third lvl 4) 5
88.0 87.8 84.4 189.0 190.4
1.1.1.3.2 Eighth level 5 (under Third lvl 4) 5
1692.8 1681.4 1977.6 5800.6 5987.8
1.2 Second level 2 2
1.2.1 Second level 3 3
1.2.1.1 Fourth level 4 4
1.2.1.1.1 Ninth level 5 (under Fourth lvl 4) 5
1.2.1.1.1.1 1st Level 6 under Ninth lvl 5 6
234.6 241.0 267.4 283.4 283.4
1.2.1.1.1.2 2nd Level 6 under Ninth lvl 5 6
353.4 345.8 363.2 482.8 513.6
==========================================================
Sample of the actual PrintOut_Method Results in Win 2k
Pro,
%-12345X@PJL JOB
@PJL SET STRINGCODESET=UTF8
@PJL COMMENT "m3444hp4200_q1 (60.3.14.2); Microsoft
Windows 2000 5.0.2195.1; PScript 0.3.1282.1"
@PJL COMMENT "Username: UNKNOWN; App Filename: ; 6-25-
1615"
@PJL SET JOBATTR="JobAcct1=UNKNOWN"
@PJL SET JOBATTR="JobAcct2=ISC"
@PJL SET JOBATTR="JobAcct3=TERRELL"
@PJL SET JOBATTR="JobAcct4=16150626014533"
@PJL SET RET=MEDIUM
@PJL SET RESOLUTION=600
@PJL SET BITSPERPIXEL=2
@PJL SET ECONOMODE=OFF
@PJL ENTER LANGUAGE=POSTSCRIPT
%!PS-Adobe-3.0
%%Title: CAP Release 1.1-C Fixed Price_X12.xls
%%Creator: PScript5.dll Version 5.2
%%CreationDate: 4/20/2004 19:17:29
%%For: UNKNOWN
%%BoundingBox: (atend)
%%Pages: (atend)
%%Orientation: Portrait
%%PageOrder: Special
%%DocumentNeededResources: (atend)
%%DocumentSuppliedResources: (atend)
%%DocumentData: Clean7Bit
%%TargetDevice: (HP LaserJet 4200) (3010.107) 0
%%LanguageLevel: 3
%%EndComments
%%BeginDefaults
%%PageBoundingBox: 12 12 599 779
%%ViewingOrientation: 1 0 0 1
%%EndDefaults
%%BeginProlog
%%BeginResource: file Pscript_WinNT_ErrorHandler 5.0 0
/currentpacking where{pop/oldpack currentpacking
def/setpacking where{pop false
setpacking}if}if/$brkpage 64 dict def $brkpage begin/prnt
{dup type/stringtype
ne{=string cvs}if dup length 6 mul/tx exch def/ty 10 def
currentpoint/toy exch
def/tox exch def 1 setgray newpath tox toy 2 sub moveto 0
ty rlineto tx 0
rlineto 0 ty neg rlineto closepath fill tox toy moveto 0
setgray show}bind def
/nl{currentpoint exch pop lmargin exch moveto 0 -10
rmoveto}def/=={/cp 0 def
typeprint nl}def/typeprint{dup type exec}readonly
def/lmargin 72 def/rmargin 72
def/tprint{dup length cp add rmargin gt{nl/cp 0 def}if
dup length cp add/cp
exch def prnt}readonly def/cvsprint{=string cvs tprint( )
tprint}readonly def
/integertype{cvsprint}readonly def/realtype{cvsprint}
readonly def/booleantype
{cvsprint}readonly def/operatortype{(--)tprint =string
cvs tprint(-- )tprint}
readonly def/marktype{pop(-mark- )tprint}readonly
def/dicttype{pop
(-dictionary- )tprint}readonly def/nulltype{pop(-null- )
tprint}readonly def
/filetype{pop(-filestream- )tprint}readonly def/savetype
{pop(-savelevel- )
tprint}readonly def/fonttype{pop(-fontid- )tprint}
readonly def/nametype{dup
xcheck not{(/)tprint}if cvsprint}readonly def/stringtype
{dup rcheck{(\()tprint
tprint(\))tprint}{pop(-string- )tprint}ifelse}readonly
def/arraytype{dup rcheck
{dup xcheck{({)tprint{typeprint}forall(})tprint}{([)tprint
{typeprint}forall(])
tprint}ifelse}{pop(-array- )tprint}ifelse}readonly
def/packedarraytype{dup
rcheck{dup xcheck{({)tprint{typeprint}forall(})tprint}{([)
tprint{typeprint}
forall(])tprint}ifelse}{pop(-packedarray- )tprint}ifelse}
readonly def/courier
/Courier findfont 10 scalefont def end
errordict/handleerror{systemdict begin
$error begin $brkpage begin newerror{/newerror false
store vmstatus pop pop 0
ne{grestoreall}if errorname(VMerror)ne{showpage}if
initgraphics courier setfont
lmargin 720 moveto errorname(VMerror)eq{userdict/ehsave
known{clear userdict
/ehsave get restore 2 vmreclaim}if vmstatus exch pop exch
pop PrtVMMsg}{
(ERROR: )prnt errorname prnt nl(OFFENDING COMMAND: )
prnt/command load prnt
$error/ostack known{nl nl(STACK
prnt nl nl $error/ostack get aload length{==}
repeat}if}ifelse systemdict/showpage get exec(%%[ Error: )
print errorname
=print(; OffendingCommand: )print/command load =print( ]%
%)= flush}if end end
end}dup 0 systemdict put dup 4 $brkpage put bind readonly
put/currentpacking
where{pop/setpacking where{pop oldpack setpacking}if}if
%%EndResource
userdict /Pscript_WinNT_Incr 230 dict dup begin put
%%BeginResource: file Pscript_FatalError 5.0 0
userdict begin/FatalErrorIf{{initgraphics findfont 1
index 0 eq{exch pop}{dup
length dict begin{1 index/FID ne{def}{pop pop}ifelse}
forall/Encoding
{ISOLatin1Encoding}stopped{StandardEncoding}if def
currentdict end
/ErrFont-Latin1 exch definefont}ifelse exch scalefont
setfont counttomark 3 div
cvi{moveto show}repeat showpage quit}{cleartomark}ifelse}
bind def end
%%EndResource
userdict begin/PrtVMMsg{vmstatus exch sub exch pop gt{[
(This job requires more memory than is available in this
printer.)100 500
(Try one or more of the following, and then print again
100 485
(For the output format, choose Optimize For Portability.)
115 470
(In the Device Settings page, make sure the Available
PostScript Memory is accurate.)
115 455(Reduce the number of fonts in the document.)115
440
(Print the document in parts.)115 425 12/Times-Roman
showpage
(%%[ PrinterError: Low Printer VM ]%%)= true FatalErrorIf}
if}bind def end
version cvi 2016 ge{/VM?{pop}bind def}{/VM?
userdict/PrtVMMsg get def}ifelse
105000 VM?
%%BeginResource: file Pscript_Win_Basic 5.0 0
/d/def load def/,/load load d/~/exch , d/?/ifelse ,
d/!/pop , d/`/begin , d/^
/index , d/@/dup , d/+/translate , d/$/roll ,
d/U/userdict , d/M/moveto , d/-
/rlineto , d/&/currentdict , d/:/gsave , d/;/grestore ,
d/F/false , d/T/true ,
d/N/newpath , d/E/end , d/Ac/arc , d/An/arcn ,
d/A/ashow , d/D/awidthshow , d/C
/closepath , d/V/div , d/O/eofill , d/L/fill ,
d/I/lineto , d/-c/curveto , d/-M
/rmoveto , d/+S/scale , d/Ji/setfont , d/Lc/setlinecap ,
d/Lj/setlinejoin , d
/Lw/setlinewidth , d/Lm/setmiterlimit , d/sd/setdash ,
d/S/show , d/LH/showpage
, d/K/stroke , d/W/widthshow , d/R/rotate , d/L2?
false/languagelevel where{pop
languagelevel 2 ge{pop true}if}if d L2?{/xS/xshow ,
d/yS/yshow , d/zS/xyshow ,
d}if/b{bind d}bind d/bd{bind d}bind d/xd{~ d}bd/ld{, d}
bd/bn/bind ld/lw/Lw ld
/lc/Lc ld/lj/Lj ld/sg/setgray ld/ADO_mxRot null d/self &
d/OrgMx matrix
currentmatrix d/reinitialize{: OrgMx setmatrix
[/TextInit/GraphInit/UtilsInit
counttomark{@ where{self eq}{F}?{cvx exec}{!}?}repeat
cleartomark ;}b
/initialize{`{/Pscript_Win_Data where{!}
{U/Pscript_Win_Data & put}?/ADO_mxRot ~
d/TextInitialised? F d reinitialize E}{U/Pscript_Win_Data
230 dict @ ` put
/ADO_mxRot ~ d/TextInitialised? F d reinitialize}?}
b/terminate{!{& self eq
{exit}{E}?}loop E}b/suspend/terminate , d/resume{`
Pscript_Win_Data `}b U `
/lucas 21690 d/featurebegin{countdictstack lucas[}
b/featurecleanup{stopped
{cleartomark @ lucas eq{! exit}if}loop countdictstack ~
sub @ 0 gt{{E}repeat}
{!}?}b E/snap{transform 0.25 sub round 0.25 add ~ 0.25
sub round 0.25 add ~
itransform}b/dsnap{dtransform round ~ round ~ idtransform}
b/nonzero_round{@ 0.5
ge{round}{@ -0.5 lt{round}{0 ge{1}{-1}?}?}?}
b/nonzero_dsnap{dtransform
nonzero_round ~ nonzero_round ~ idtransform}b U<04>cvn{}
put/rr{1 ^ 0 - 0 ~ -
neg 0 - C}b/irp{4 -2 $ + +S fx 4 2 $ M 1 ^ 0 - 0 ~ - neg
0 -}b/rp{4 2 $ M 1 ^ 0
- 0 ~ - neg 0 -}b/solid{[]0 sd}b/g{@ not{U/DefIf_save
save put}if U/DefIf_bool
2 ^ put}b/DefIf_El{if U/DefIf_bool get not @{U/DefIf_save
get restore}if}b/e
{DefIf_El !}b/UDF{L2?{undefinefont}{!}?}b/UDR{L2?
{undefineresource}{! !}?}b
/freeVM{/Courier findfont[40 0 0 -40 0 0]makefont Ji 2
vmreclaim}b/hfRedefFont
{findfont @ length dict `{1 ^/FID ne{d}{! !}?}forall & E
@ ` ~{/CharStrings 1
dict `/.notdef 0 d & E d}if/Encoding 256 array 0 1 255{1
^ ~/.notdef put}for d
E definefont !}bind d/hfMkCIDFont{/CIDFont findresource @
length 2 add dict `{1
^ @/FID eq ~ @/XUID eq ~/UIDBase eq or or{! !}{d}?}
forall/CDevProc ~ d/Metrics2
16 dict d/CIDFontName 1 ^ d & E 1 ^ ~/CIDFont
defineresource ![~]composefont !}
bind d
%%EndResource
%%BeginResource: file Pscript_Win_Utils_L2 5.0 0
/rf/rectfill , d/fx{1 1 dtransform @ 0 ge{1 sub 0.5}{1
add -0.5}? 3 -1 $ @ 0 ge
{1 sub 0.5}{1 add -0.5}? 3 1 $ 4 1 $ idtransform 4 -2 $
idtransform}b/BZ{4 -2 $
snap + +S fx rf}b/rs/rectstroke , d/rc/rectclip ,
d/UtilsInit{currentglobal{F
setglobal}if}b/scol{! setcolor}b/colspA/DeviceGray
d/colspABC/DeviceRGB d
/colspRefresh{colspABC setcolorspace}b/SetColSpace
{colspABC setcolorspace}b
/resourcestatus where{!/ColorRendering/ProcSet
resourcestatus{! ! T}{F}?}{F}?
not{/ColorRendering<</GetHalftoneName{currenthalftone
@/HalftoneName known{
/HalftoneName get}{!/none}?}bn/GetPageDeviceName
{currentpagedevice @
/PageDeviceName known{/PageDeviceName get @ null eq
{!/none}if}{!/none}?}bn
/GetSubstituteCRD{!/DefaultColorRendering/ColorRendering
resourcestatus{! !
/DefaultColorRendering}{(DefaultColorRendering*){cvn exit}
127 string
/ColorRendering resourceforall}?}bn>>/defineresource where
{!/ProcSet
defineresource !}{! !}?}if/buildcrdname
{/ColorRendering/ProcSet findresource `
mark GetHalftoneName @ type @/nametype ne ~/stringtype ne
and{!/none}if(.)
GetPageDeviceName @ type @/nametype ne ~/stringtype ne and
{!/none}if(.)5 ^ 0 5
-1 1{^ length add}for string 6 1 $ 5 ^ 5{~ 1 ^ cvs length
1 ^ length 1 ^ sub
getinterval}repeat ! cvn 3 1 $ ! ! E}
b/definecolorrendering{~ buildcrdname ~
/ColorRendering defineresource !}b/findcolorrendering
where{!}{
/findcolorrendering{buildcrdname @/ColorRendering
resourcestatus{! ! T}{
/ColorRendering/ProcSet findresource ` GetSubstituteCRD E
F}?}b}?
/selectcolorrendering{findcolorrendering !/ColorRendering
findresource
setcolorrendering}b/G2UBegin{findresource/FontInfo
get/GlyphNames2Unicode get
`}bind d/G2CCBegin{findresource/FontInfo
get/GlyphNames2HostCode get `}bind d
/G2UEnd{E}bind d/AddFontInfoBegin{/FontInfo 8 dict @ `}
bind d/AddFontInfo{
/GlyphNames2Unicode 16 dict d/GlyphNames2HostCode 16 dict
d}bind d
/AddFontInfoEnd{E d}bind d/T0AddCFFMtx2{/CIDFont
findresource/Metrics2 get ` d
E}bind d
%%EndResource
end
%%EndProlog
%%BeginSetup
statusdict begin (%%[ ProductName: ) print product print
( ]%%)= flush end
[ 0.898 0 0 0.898 0 0 ] false Pscript_WinNT_Incr
dup /initialize get exec
featurebegin{
%%BeginNonPPDFeature: JobTimeout 0
0 /languagelevel where{pop languagelevel}{1}ifelse 2 ge{1
dict dup/JobTimeout 4 -1 roll put setuserparams}
{statusdict/setjobtimeout get exec}ifelse
%%EndNonPPDFeature
}featurecleanup
featurebegin{
%%BeginNonPPDFeature: WaitTimeout 120
120 /languagelevel where{pop languagelevel}{1}ifelse 2 ge
{1 dict dup/WaitTimeout 4 -1 roll put setuserparams}
{statusdict/waittimeout 3 -1 roll put}ifelse
%%EndNonPPDFeature
}featurecleanup
featurebegin{
%%BeginFeature: *Collate True
<</Collate true>> setpagedevice
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *PageSize Letter
<</DeferredMediaSelection true /PageSize [612
792] /ImagingBBox null /MediaClass null>> setpagedevice
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *StapleLocation None
<< /MediaProcessing (NONE) >> setpagedevice
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *OutputBin Auto
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *MediaType Auto
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *Duplex None
<</Duplex false>> setpagedevice
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPXMLFileUsed HPXMLFileName
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPColorMode MONOCHROME_MODE
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPJobAccounting HPJOBACCT_JOBACNT
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *PrintQualityGroup PQGroup_2
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPOrientRotate180 False
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *TextAsBlack False
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *JRConstraints JRCHDPartial
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *JRHDInstalled JRHDOff
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *JRHDNotInstalled JRHDOff
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *EnvFeeder NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *Tray3 NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *Tray4 NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *AccessoryOutputBins None
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *DuplexUnit NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *InstalledMemory 48-63MB
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *PrinterHardDisk NotInstalled
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *JobRetention Installed
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *DeviceIsMopier Installed
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPInstallableTrayFeatureName EnvFeeder
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPInstallableTraySize EnvFeeder-100-
ENVELOPE_FEEDER
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPInstallableHCO 500Stacker-Q2442
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *ActualCustomRange 215900_355600
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPPDLType PDL_PS
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *HPPJLEncoding UTF8
%%EndFeature
}featurecleanup
featurebegin{
%%BeginFeature: *ScaleFromLargePaper Installed
%%EndFeature
}featurecleanup
1 setlinecap 1 setlinejoin
/mysetup [ 72 600 V 0 0 -72 600 V 11.99905 779.0003 ] def
%%EndSetup
userdict begin /ehsave save def end
%%Page: 1 1
%%PageBoundingBox: 12 12 599 779
%%EndPageComments
%%BeginPageSetup
/DeviceRGB dup setcolorspace /colspABC exch def
mysetup concat colspRefresh
%%EndPageSetup
and a lots more
=================================================
==========================================================
Sample of the actual PrintOut_Method Results in Win XP
Home.
E&l0S*r3F&l0O&l1H&l2a8c1E*t300R&l1X*b0M
*c16534D)s64W @ + t ; U L ì < ÿ
L Cache 16534 (16534X&d@*c32E(s46W
0ðððððððððððððððððððððððððððððð*c33E
(s106W hÿÿÿÿÿÿÿÿÿÿÿÿ < < < < < < <
< < < < < < < < < < < < < < < < < < <
*c34E(s106W pÿÿüÿÿüÿÿüÿÿüð ð ð ð ð
ð ð ð ÿÿøÿÿøÿÿøÿÿøð ð ð ð ð ð ð ð ð ð
ÿÿþÿÿþÿÿþÿÿþ*c35E(s136W Oþ øþ øÿ øÿ
øÿ øÿ
ø÷?x÷?x÷?xóÀ xóÀ xóÀ xñà<xñà<xñà<xñà<xððxxððxxððxxðxðx
ðxðxðxðxð=àxð=àxð=àxð=àxð Àxð Àxð Àxð?x*v0o0T*p290Y*p1
60X !"#*c16534D*c36E(s136W pð àø àx
Àx À| À< ?< ? ?> ?< ?< À| Àx
Àx àø àð áð ñà ñà ûà {À {À À ?? ?? ??
*c37E(s136W p ?? ;? ;? {À
qÀ ñà àà àà àð Àp Àx Àx ?8 ?< ÿü ÿþ ÿþ ÿþ
< ?< ?< ?x Àx Àø àð à*c38E(s106W
\ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð ð
ð ð ð ð ð ð ð ð ð ÿÿàÿÿàÿÿàÿÿà*c39E(s106W
xð ð ð ð ð ð ð ð ð ð ð ð ð ð ð
ð ð ð ð ð ð ð x x | >? ü?ÿø ÿðÿà ÿ *p956X$%
&'"*c16534D*c40E(s136W x ?? ÿð ÿø ÿü
À~ ? > | ?x ?x ø ð ð ð ð ð ð ð
and a lot more
Thanks again,
Shorty