slideshow: use printer-dc on all platforms for --print

This commit is contained in:
Matthew Flatt 2010-11-23 17:15:18 -07:00
parent 9c6b9b8fcd
commit c6ae7377a5

View File

@ -161,8 +161,7 @@
"untitled.ps")))
(send pss set-orientation 'landscape)
(parameterize ([current-ps-setup pss])
(if (and native-printing?
(not (memq (system-type) '(unix))))
(if native-printing?
;; Make printer-dc%
(begin
(when (can-get-page-setup-from-user?)