diff --git a/lcl/interfaces/win32/win32extra.pas b/lcl/interfaces/win32/win32extra.pas
index 30bc30879c..b2ca603f95 100644
--- a/lcl/interfaces/win32/win32extra.pas
+++ b/lcl/interfaces/win32/win32extra.pas
@@ -410,6 +410,7 @@ type
   function SetTimer(hWnd:HWND; nIDEvent:UINT_PTR; uElapse:UINT; lpTimerFunc: TIMERPROC): UINT_PTR; stdcall; external 'user32' name 'SetTimer';
   function KillTimer(hWnd:HWND; uIDEvent:UINT_PTR):WINBOOL; stdcall; external 'user32' name 'KillTimer';
   function HasManifest: Boolean;
+  function PrintWindow(HWND:HWND;hdcBlt:HDC;nFlags:DWORD):WINBOOL; stdcall; external 'user32.dll';
 
 implementation
 
diff --git a/lcl/interfaces/win32/win32wscontrols.pp b/lcl/interfaces/win32/win32wscontrols.pp
index eff8bf0732..b5973e1fbd 100644
--- a/lcl/interfaces/win32/win32wscontrols.pp
+++ b/lcl/interfaces/win32/win32wscontrols.pp
@@ -544,8 +544,7 @@ var
 begin
   SavedDC := SaveDC(ADC);
   MoveWindowOrgEx(ADC, X, Y);
-  SendMessage(AWinControl.Handle, WM_PRINT, WParam(ADC),
-    PRF_CHECKVISIBLE or PRF_CHILDREN or PRF_CLIENT or PRF_NONCLIENT or PRF_OWNED);
+  PrintWindow(AWinControl.Handle, ADC, 0);
   RestoreDC(ADC, SavedDC);
 end;