Wednesday, April 06, 2011

printing -3

Got some more coding done this evening. The snippet from the test script show's where I'm at. The gnocl::print file operation is working all well and good, but the settings aren't being passed on at run time. But, I'll crack it -eventually!

gnocl::print settings \
    -orientation landscape \
    -paperSize A4 \
    -paperWidth 210mm \
    -paperHeight 297mm \
    -pageRange {1 2} \
    -pages current \
    -defaultSource envelope-manual \
    -media stationery \
    -baseFont [list "Droid Sans" 10 Bold] \
    -dither rough

proc doPrintFile {} {
    puts [upvar level #0]
    set fname test-print.tcl
    gnocl::print file $fname \
        -baseFont {"Andika Basic" 8} \
        -linePadding 2 \
        -header $fname \
        -units inch \
        -action export \
        -showProgress 1 \
        -exportFilename "helloWorld.pdf" \
        -footer "HOW NOW BROWN COW"
}

No comments: