diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt index 1f39865f..e9c182b1 100644 --- a/collects/framework/private/frame.rkt +++ b/collects/framework/private/frame.rkt @@ -1371,7 +1371,7 @@ (inherit get-top-level-window) (define/override (file-menu:between-save-as-and-print file-menu) - (when (can-get-page-setup-from-user?) + (when (and (can-get-page-setup-from-user?) (file-menu:create-print?)) (new menu-item% [parent file-menu] [label (string-constant page-setup-menu-item)] diff --git a/collects/scribblings/framework/frame.scrbl b/collects/scribblings/framework/frame.scrbl index faeb9ace..dcbd3fa2 100644 --- a/collects/scribblings/framework/frame.scrbl +++ b/collects/scribblings/framework/frame.scrbl @@ -659,7 +659,8 @@ } @defmethod*[#:mode override (((file-menu:between-save-as-and-print (file-menu (is-a?/c menu%))) void?))]{ - Creates a Print Setup menu item. + Creates a Print Setup menu item if @racket[can-get-page-setup-from-user?] + and @racket[file-menu:create-print?] both return true. } @defmethod*[#:mode override (((edit-menu:between-select-all-and-find (edit-menu (is-a?/c menu%))) void?))]{