diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f05a8fc92c..273b9b3b22 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,13 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-01-16 09:53 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/hbwin/win_tprn.prg
+    * updated some comments
+
+  * harbour/contrib/hbwin/win_prn1.c
+    ! replaced yet another constant value by DMORIENT_LANDSCAPE macro
+
 2010-01-15 21:14 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * contrib/hbqt/generator/qt45.qtp
   * contrib/hbqt/hbqt.h
diff --git a/harbour/contrib/hbwin/win_prn1.c b/harbour/contrib/hbwin/win_prn1.c
index 3e7f646f9b..8ee54ee674 100644
--- a/harbour/contrib/hbwin/win_prn1.c
+++ b/harbour/contrib/hbwin/win_prn1.c
@@ -526,7 +526,7 @@ HB_FUNC( WIN_GETDOCUMENTPROPERTIES )
          DocumentProperties( 0, hPrinter, ( LPTSTR ) lpDeviceName, pDevMode, pDevMode, DM_OUT_BUFFER );
 
          hb_storni( pDevMode->dmPaperSize, 2 );
-         hb_storl( pDevMode->dmOrientation == 2, 3 );
+         hb_storl( pDevMode->dmOrientation == DMORIENT_LANDSCAPE, 3 );
          hb_storni( pDevMode->dmCopies, 4 );
          hb_storni( pDevMode->dmDefaultSource, 5 );
          hb_storni( pDevMode->dmDuplex, 6 );
diff --git a/harbour/contrib/hbwin/win_tprn.prg b/harbour/contrib/hbwin/win_tprn.prg
index 660aaf1dd4..fed712d00c 100644
--- a/harbour/contrib/hbwin/win_tprn.prg
+++ b/harbour/contrib/hbwin/win_tprn.prg
@@ -77,7 +77,6 @@ CREATE CLASS WIN_PRN
    METHOD Create()                  // CreatesDC and sets "Courier New" font, set Orientation, Copies, Bin#
                                     // Create() ( & StartDoc() ) must be called before printing can start.
    METHOD Destroy()                 // Calls EndDoc() - restores default font, Deletes DC.
-                                    // Destroy() must be called to avoid memory leaks
    DESTRUCTOR Destruct()
 
    METHOD StartDoc( cDocName )      // Calls StartPage()
@@ -85,7 +84,7 @@ CREATE CLASS WIN_PRN
    METHOD StartPage()
    METHOD EndPage( lStartNewPage )  // If lStartNewPage == .T. then StartPage() is called for the next page of output
    METHOD NewLine()
-   METHOD NewPage( lDelay )
+   METHOD NewPage( lDelay )         // If lDelay == .T. then new page is not created immediately but just before 1-st output
    METHOD CheckPage()
    METHOD GetDocumentProperties()
    METHOD SetFont( cFontName, nPointSize, nWidth, nBold, lUnderline, lItalic, nCharSet )