diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 94de82b09b..f01ba75e4b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-01-23 02:27 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/hbwin/win_tprn.prg
+    ! do not ignore :setBkMode() called before :create()
+
 2010-01-23 02:21 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbnetio/utils/netiosrv.prg
   * contrib/hbnetio/utils/netiocmd.prg
diff --git a/harbour/contrib/hbwin/win_tprn.prg b/harbour/contrib/hbwin/win_tprn.prg
index 2b4688db0c..4d2f89ce98 100644
--- a/harbour/contrib/hbwin/win_tprn.prg
+++ b/harbour/contrib/hbwin/win_tprn.prg
@@ -250,6 +250,9 @@ METHOD Create() CLASS WIN_PRN
       IF !lResult
          ::hPrinterDC := NIL
       ELSE
+         IF ::BkMode != NIL
+            win_SetBkMode( ::hPrinterDc, ::BkMode )
+         ENDIF
          // Set mapping mode to pixels, topleft down
          win_SetMapMode( ::hPrinterDC, WIN_MM_TEXT )
 //         win_SetTextCharacterExtra( ::hPrinterDC, 0 ) // do not add extra char spacing even if bold