Two files print-8.6erw.tcl and print-test.tcl.
tried to see if it also works with 8.6


#print-8.6erw.tcl
package require gdi
package require printer
#Tcl Extensions by Michael Schwarz
#http://wiki.tcl-lang.org/page/TkPrint
package require struct::list

namespace eval ::tk::print {
proc _opendoc {} {
printer job start
}

proc _openpage {} {
printer page start
}

proc _closedoc {} {
printer job end
}

proc _closepage {} {
printer page end
}

proc _gdi {args} {
gdi {*}$args
#tailcall gdi {*}$args
}

proc _selectprinter {} {
# variable printargs
variable printer_name
variable paper_width
variable paper_height
variable dpi_x
variable dpi_y
variable copies
set hDc [printer dialog select]
set attr [struct::list flatten [printer attr -hDc $hDc]]
# set printer_name [dict get $attr device]
# set printargs(printer_name) [dict get $attr device]
set printer_name [lindex $hDc 0]
set paper_width [lindex [dict get $attr "page dimensions"] 0]
set paper_height [lindex [dict get $attr "page dimensions"] 1]
set dpi_x [lindex [dict get $attr "pixels per inch"] 0]
set dpi_y [lindex [dict get $attr "pixels per inch"] 1]
set copies [dict get $attr copies]
}

#print-test.tcl
package require Tk
#tk 8.7
#https://core.tcl-lang.org/tips/doc/trunk/tip/604.md #https://core.tcl-lang.org/tk/file?name=library/print.tcl&ci=tip

source print.tcl
source print-8.6erw.tcl

text .t
button .btn -text print -command {tk print .t}
.t insert end "hello World"
pack .t .btn

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

#print-8.6erw.tcl
#0.2
if {[tk windowingsystem] eq "win32"} {
if {[info tclversion] eq "8.6"} {
package require gdi
package require printer
#Tcl Extensions by Michael Schwarz
#http://wiki.tcl-lang.org/page/TkPrint
package require struct::list

namespace eval ::tk::print {

proc _openprinter {args} {
printer open args
}

proc _closeprinter {} {
printer close
}

proc _opendoc {} {
printer job start
}

proc _closedoc {} {
printer job end
}

proc _openpage {} {
printer page start
}

proc _closepage {} {
printer page end
}

proc _gdi {args} {
gdi {*}$args
#tailcall gdi {*}$args
}

proc _selectprinter {} {
# variable printargs
variable printer_name
variable paper_width
variable paper_height
variable dpi_x
variable dpi_y
variable copies
set hDc [printer dialog select]
set attr [struct::list flatten [printer attr -hDc $hDc]]
# set printer_name [dict get $attr device]
# set printargs(printer_name) [dict get $attr device]
set printer_name [lindex $hDc 0]
set paper_width [lindex [dict get $attr "page dimensions"] 0]
set paper_height [lindex [dict get $attr "page dimensions"] 1]
set dpi_x [lindex [dict get $attr "pixels per inch"] 0]
set dpi_y [lindex [dict get $attr "pixels per inch"] 1]
set copies [dict get $attr copies]
}

}
}
}

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

On 9/11/23 12:49 AM, greg wrote:

#print-8.6erw.tcl
#0.2
if {[tk windowingsystem] eq "win32"} {
if {[info tclversion] eq "8.6"} {
package require gdi
package require printer
#Tcl Extensions by Michael Schwarz
#http://wiki.tcl-lang.org/page/TkPrint
package require struct::list

Yes, the "tk print" code for Windows was based on these libraries by
Michael Schwartz, so the original libraries should work just fine on 8.6.

--Kevin

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

Kevin Walzer schrieb am Mittwoch, 13. September 2023 um 04:28:12 UTC+2:

On 9/11/23 12:49 AM, greg wrote:

#print-8.6erw.tcl
#0.2
if {[tk windowingsystem] eq "win32"} {
if {[info tclversion] eq "8.6"} {
package require gdi
package require printer
#Tcl Extensions by Michael Schwarz
#http://wiki.tcl-lang.org/page/TkPrint
package require struct::list

Yes, the "tk print" code for Windows was based on these libraries by
Michael Schwartz, so the original libraries should work just fine on 8.6.

--Kevin

tk print for tk 8.7 is a great thing.
Also helped me understand printer/gdi better.
I really like the solution in print.tcl for linux print.
Searched for something like this for a long time.

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)