| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
PrintOut_Method Outputs (Win 2000 Pro and XP Home)
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<04cvn{} 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*){cv n 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{ %%BeginNonPPDFeatu 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{ %%BeginNonPPDFeatu 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{ %%BeginFeatu *Collate True <</Collate true setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *PageSize Letter <</DeferredMediaSelection true /PageSize [612 792] /ImagingBBox null /MediaClass null setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *StapleLocation None << /MediaProcessing (NONE) setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *OutputBin Auto %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *MediaType Auto %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *Duplex None <</Duplex false setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPXMLFileUsed HPXMLFileName %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPColorMode MONOCHROME_MODE %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPJobAccounting HPJOBACCT_JOBACNT %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *PrintQualityGroup PQGroup_2 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPOrientRotate180 False %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *TextAsBlack False %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JRConstraints JRCHDPartial %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JRHDInstalled JRHDOff %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JRHDNotInstalled JRHDOff %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *EnvFeeder NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *Tray3 NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *Tray4 NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *AccessoryOutputBins None %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *DuplexUnit NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *InstalledMemory 48-63MB %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *PrinterHardDisk NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JobRetention Installed %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *DeviceIsMopier Installed %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPInstallableTrayFeatureName EnvFeeder %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPInstallableTraySize EnvFeeder-100- ENVELOPE_FEEDER %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPInstallableHCO 500Stacker-Q2442 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *ActualCustomRange 215900_355600 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPPDLType PDL_PS %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPPJLEncoding UTF8 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *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*p 290Y*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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
PrintOut_Method Outputs (Win 2000 Pro and XP Home)
When you print to a file, it embeds the codes that the current printer uses.
For most printers, this turns to greek (for me). You could either change your printer to the Generic Text printer (you may need to install the driver). Or you could just save|As and choose: Formatted Text (Space delimited)(*.prn) You may have to widen some columns to make it look pretty. Shorty wrote: 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<04cvn{} 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*){cv n 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{ %%BeginNonPPDFeatu 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{ %%BeginNonPPDFeatu 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{ %%BeginFeatu *Collate True <</Collate true setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *PageSize Letter <</DeferredMediaSelection true /PageSize [612 792] /ImagingBBox null /MediaClass null setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *StapleLocation None << /MediaProcessing (NONE) setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *OutputBin Auto %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *MediaType Auto %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *Duplex None <</Duplex false setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPXMLFileUsed HPXMLFileName %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPColorMode MONOCHROME_MODE %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPJobAccounting HPJOBACCT_JOBACNT %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *PrintQualityGroup PQGroup_2 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPOrientRotate180 False %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *TextAsBlack False %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JRConstraints JRCHDPartial %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JRHDInstalled JRHDOff %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JRHDNotInstalled JRHDOff %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *EnvFeeder NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *Tray3 NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *Tray4 NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *AccessoryOutputBins None %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *DuplexUnit NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *InstalledMemory 48-63MB %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *PrinterHardDisk NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JobRetention Installed %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *DeviceIsMopier Installed %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPInstallableTrayFeatureName EnvFeeder %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPInstallableTraySize EnvFeeder-100- ENVELOPE_FEEDER %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPInstallableHCO 500Stacker-Q2442 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *ActualCustomRange 215900_355600 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPPDLType PDL_PS %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPPJLEncoding UTF8 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *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*p 290Y*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 -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
PrintOut_Method Outputs (Win 2000 Pro and XP Home)
Dave,
Thank you for the suggestion. I'll try it out. Shorty -----Original Message----- When you print to a file, it embeds the codes that the current printer uses. For most printers, this turns to greek (for me). You could either change your printer to the Generic Text printer (you may need to install the driver). Or you could just save|As and choose: Formatted Text (Space delimited)(*.prn) You may have to widen some columns to make it look pretty. Shorty wrote: 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<04cvn {} 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*){cv n 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 ( ]%%)= flush end [ 0.898 0 0 0.898 0 0 ] false Pscript_WinNT_Incr dup /initialize get exec featurebegin{ %%BeginNonPPDFeatu 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{ %%BeginNonPPDFeatu 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{ %%BeginFeatu *Collate True <</Collate true setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *PageSize Letter <</DeferredMediaSelection true /PageSize [612 792] /ImagingBBox null /MediaClass null setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *StapleLocation None << /MediaProcessing (NONE) setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *OutputBin Auto %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *MediaType Auto %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *Duplex None <</Duplex false setpagedevice %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPXMLFileUsed HPXMLFileName %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPColorMode MONOCHROME_MODE %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPJobAccounting HPJOBACCT_JOBACNT %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *PrintQualityGroup PQGroup_2 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPOrientRotate180 False %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *TextAsBlack False %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JRConstraints JRCHDPartial %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JRHDInstalled JRHDOff %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JRHDNotInstalled JRHDOff %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *EnvFeeder NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *Tray3 NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *Tray4 NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *AccessoryOutputBins None %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *DuplexUnit NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *InstalledMemory 48-63MB %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *PrinterHardDisk NotInstalled %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *JobRetention Installed %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *DeviceIsMopier Installed %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPInstallableTrayFeatureName EnvFeeder %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPInstallableTraySize EnvFeeder-100- ENVELOPE_FEEDER %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPInstallableHCO 500Stacker-Q2442 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *ActualCustomRange 215900_355600 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPPDLType PDL_PS %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *HPPJLEncoding UTF8 %%EndFeature }featurecleanup featurebegin{ %%BeginFeatu *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 -- Dave Peterson . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Three possible outputs from an if statement. | Excel Discussion (Misc queries) | |||
| If Statement to display 3 different outputs instead of 2 | Excel Worksheet Functions | |||
| =+SUM(S2:S36) outputs 19190fault | Excel Worksheet Functions | |||
| Shortcut keys: CNTRL+HOME vs. HOME | Excel Discussion (Misc queries) | |||
| PrintOut_Method | Excel Programming | |||
![Shorty[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
