Tlac z excel (makro)

Doplňujúce info:
Môj predchádzajúci link priamo uvádza kód, ktorý nefunguje, ale v ďalšej diskusii je uvedený ďalší link, ktorého riešenie funguje:
https://www.mrexcel.com/board/threads/hide-now-printing-in-vba.13057/
Mám odskúšané

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'// The SendMessage function sends the specified message to a window or windows.
'// The function calls the window procedure for the specified window and does not
'// return until the window procedure has processed the message.
'// The PostMessage function, in contrast, posts a message to a thread’s message
'// queue and returns immediately.
'//
'// PARAMETERS:
'//
'// hwnd
'// Identifies the window whose window procedure will receive the message.
'// If this parameter is HWND_BROADCAST, the message is sent to all top-level
'// windows in the system, including disabled or invisible unowned windows,
'// overlapped windows, and pop-up windows; but the message is not sent to child windows.

'// Msg
'// Specifies the message to be sent.

'// wParam
'// Specifies additional message-specific information.

'// lParam
'// Specifies additional message-specific information.

'//////////////////////////////////////////////////////////////////////////
'// The IsWindow function determines whether the specified window handle
'// identifies an existing window.
Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
'// PARAMETERS:
'// hWnd
'// Specifies the window handle.

'//////////////////////////////////////////////////////////////////////////
'//
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, _
lpRect As Long, ByVal bErase As Long) As Long

Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Public Function fncScreenUpdating(State As Boolean, Optional Window_hWnd As Long = 0)
Const WM_SETREDRAW = &HB
Const WM_PAINT = &HF

If Window_hWnd = 0 Then
Window_hWnd = GetDesktopWindow()
Else
If IsWindow(hwnd:=Window_hWnd) = False Then
Exit Function
End If
End If

If State = True Then
Call SendMessage(hwnd:=Window_hWnd, wMsg:=WM_SETREDRAW, wParam:=1, lParam:=0)
Call InvalidateRect(hwnd:=Window_hWnd, lpRect:=0, bErase:=True)
Call UpdateWindow(hwnd:=Window_hWnd)
Else
Call SendMessage(hwnd:=Window_hWnd, wMsg:=WM_SETREDRAW, wParam:=0, lParam:=0)
End If

End Function


'-----------------------------
Sub PrintDirect()
fncScreenUpdating State:=False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
fncScreenUpdating State:=True
End Sub
'-----------------------------

Dik, toto som nasiel, ale mne nefunguje. Je to presne ako normalne, okna preblikavaju, len neobsahuju text, len ramik okna.

Áno, sorry, teraz som si tiež všimol, že na okamih preblikne prázdne okienko...

https://www.mrexcel.com/board/threads/print-dialog-box.94045/
Tu sa na konci vlákna píše, že na 32 bitových systémoch funguje a že problém bude v rozdiele medzi 32 a 64 bitovými API deklaráciami
Tak ďaleko však nie som

Vdaka vsetkym za snahu, akoze viem s tym zit, len je to nie pekne a zdrzuje to vykonavanie skriptu . . . ale aspon vidiet, ze sa nieco deje

A což takhle to poriešiť fintou:
Nebudeš tlačiť x súborov po jednom, ale načítaš dávku súborov, makrom poriešiš zlúčenie všetkých potrebných dát do jedného výsledného súboru a ten dáš vytlačiť jediným povelom... Pokiaľ to máš systematické, nemal by byť problém a bolo by to než bys řekl švec...

No nie az tak doslova, tam by bol zase problem tak narychlo si spomeneiem napriklad na strankovanie, niesu to surove data, ale predstav si kazdy subor povedzme ako vyplneny dotaznik . . . a ludova tvorivost si sem tam prida riadok, pripadne pise poznamky do dalsich stlpcov . . . do suborov nemozem zasiahnut, niesu moje
Ale nieje to tke strasne, len som to chcel doviest k dokonalosti

Tak sa o dokonalosť ani nesnaž, dokonalé môžu byť len ženy
Veď ono Ťa niečo ešte napadne, čo bude TAKMERRR dokonalé