[SVH] If you use the postscript export functionality from the canvas together with ghostscript, you can print your forms easily using following code. This code is based on [Printing a canvas under Windows] (bottom of page). Your form must be created first on a canvas scale 1:1 (path for the canvas is in $WIN(FRM)). This code is written for Windows environment, but should be easily modified for other environments, as ghostscript is available for multiple platforms. On other platforms the options ''-sDEVICE=mswinpr2'' and ''-sOutputFile'' must be modified, see GhostScript documentation. Usage : (prefix commands with Print:: if you're working from a different namespace) OpenPrinter PrintForm (1 or multiple times) ClosePrinter ''sx'' and ''sy'' are shifts to get the form on the right place on paper, this values are obtained by calibration. These values may not be the same for different printers. ''fwdt'' and ''fhgt'' are form width and height, the canvas must have the same size. # # proc Print::OpenPrinter {} { variable WIN variable FLD variable CUR # Preprinted form is shown in the canvas as an image, # This image must be removed temporarily during the printing $WIN(FRM) itemconfigure img -state hidden update set gspath {C:\\gs\\gs8.51\\bin\\gswin32c.exe} set opt1 "-q" if {$FLD(Printer) != "Select from Printer Dialog"} { set opt2 "-sDEVICE=mswinpr2 -sOutputFile=\"%printer%$FLD(Printer)\"" }\ else { set opt2 "-sDEVICE=mswinpr2" } set opt3 "-dNOPAUSE -dBATCH" set CUR(gs) [open "|\"$gspath\" $opt1 $opt2 $opt3 -" w] } # # proc Print::PrintForm {} { variable WIN variable FLD variable CUR variable Msg "" # Form definition is stored in a BLT tree # Values are obtained by procedure GetValues var1 var2 ... GetValues sx sy fwdt fhgt unit rot if {$rot} { set sftx [expr {$sx + $fwdt / 2}] set sfty [expr {$sy + $fhgt / 2}] }\ else { set sftx [expr {-1 * $sy + $fwdt / 2}] set sfty [expr {$sx + $fhgt / 2}] } $WIN(FRM) yview moveto 0 $WIN(FRM) xview moveto 0 $WIN(FRM) postscript -channel $CUR(gs) -pagey $sftx$unit -pagex $sfty$unit -rotate $rot\ -width $fwdt$unit -height $fhgt$unit -pageheight $fhgt$unit -pagewidth $fwdt$unit -x 0 -y 0 } # # proc Print::ClosePrinter {} { variable WIN variable CUR variable Msg "" ;# variable attached to status bar catch {close $CUR(gs)} Msg array unset CUR gs $WIN(FRM) itemconfigure img -state normal update } ---- [Category Printing]