diff --git a/ide/fpide.pas b/ide/fpide.pas
index a705025e94..dbe5923ed5 100644
--- a/ide/fpide.pas
+++ b/ide/fpide.pas
@@ -460,6 +460,7 @@ resourcestring  menu_local_gotosource = '~G~oto source';
                 msg_confirmsourcediradd = 'Directory %s is not in search path for source files. '+
                                          'Should we add it ?';
                 msg_quitconfirm         = 'Do You really want to quit?';
+                msg_printernotopened = 'Can''t open printer,'#13#3'check device name in "print setup"';
                 msg_printerror = 'Error while printing';
                 msg_impossibletoreachcursor = 'Impossible to reach current cursor';
                 msg_impossibletosetbreakpoint = 'Impossible to set breakpoints here';
diff --git a/ide/fpmfile.inc b/ide/fpmfile.inc
index c62ad2dfa9..37316effcc 100644
--- a/ide/fpmfile.inc
+++ b/ide/fpmfile.inc
@@ -266,10 +266,12 @@ procedure TIDEApp.Print;
     if assigned(P) then
       begin
         assign(f,d);
+{$I-}
         rewrite(f);
+{$I+}
         if ioresult<>0 then
           begin
-            MessageBox(#3+msg_PrintError,nil,mferror+mfokbutton);
+            MessageBox(#3+msg_printernotopened,nil,mferror+mfokbutton);
             exit;
           end;
         for i:=0 to P^.Editor^.Core^.GetLineCount-1 do
diff --git a/ide/fpviews.pas b/ide/fpviews.pas
index 82d65fa583..44d44dc72f 100644
--- a/ide/fpviews.pas
+++ b/ide/fpviews.pas
@@ -482,7 +482,7 @@ const
       SourceCmds  : TCommandSet =
         ([cmSave,cmSaveAs,cmCompile,cmHide,cmDoReload]);
       EditorCmds  : TCommandSet =
-        ([cmFind,cmReplace,cmSearchAgain,cmJumpLine,cmHelpTopicSearch,cmSelectAll,cmUnselect]);
+        ([cmPrint,cmFind,cmReplace,cmSearchAgain,cmJumpLine,cmHelpTopicSearch,cmSelectAll,cmUnselect]);
       CompileCmds : TCommandSet =
         ([cmMake,cmBuild,cmRun]);