From 06e5d7d6c85ced44dfc3e7c255adb262aef0e233 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 14 Jan 2011 15:51:05 -0700 Subject: [PATCH] fix problem with mm printer measurements --- collects/mred/private/wx/win32/printer-dc.rkt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/mred/private/wx/win32/printer-dc.rkt b/collects/mred/private/wx/win32/printer-dc.rkt index 91a3b35492..71a54a6c0d 100644 --- a/collects/mred/private/wx/win32/printer-dc.rkt +++ b/collects/mred/private/wx/win32/printer-dc.rkt @@ -142,20 +142,18 @@ (begin (show-print-setup #f #t) (send (current-ps-setup) get-native)))) - + (define-values (page-width page-height) (let ([scale (if (zero? (bitwise-and (PAGESETUPDLG-Flags page-setup) PSD_INTHOUSANDTHSOFINCHES)) ;; 100ths of mm - (/ SCREEN-DPI (/ 10.0 2.54)) + (/ SCREEN-DPI (* 10.0 2.54)) ;; 1000ths of in (/ SCREEN-DPI 1000.0))]) (values (* scale (POINT-x (PAGESETUPDLG-ptPaperSize page-setup))) (* scale (POINT-y (PAGESETUPDLG-ptPaperSize page-setup)))))) - - (define/override (get-size) (values page-width page-height)) (define start-doc-message #f)