Excel loopt vast op 'SPLWOW64.EXE'

[sph1980]

Goedendag allen.

Ik gebruik nogal intensief Excel om mn parttime eenmanszaakje in de lucht te houden.

Voor de facturen, boekhouding, rapporten, adressen, berekeningen etc. gebruik ik 1 Excel workbook.
Hierin heb ik veel geautomatiseerd via VBA scripts / knoppen.
Dus ene keer een verzendetiket afdrukken, andere keer een factuur als .PDF opslaan.

Nu is het zo dat ELKE eerste keer dat ik een .PDF wil maken Excel blijft hangen en wacht op de 'SPLWOW64.EXE'. Wanneer ik dan Excel geforceerd beëindig en opnieuw opstart gaat alles weer goed totdat de PC uit is geweest en de eerste keer weer het wachten op de 'SPLWOW64.EXE' is.

Iemand een idee hoe ik dit oplos?

[Deef_K]

Om je te kunnen helpen is het misschien verstandig om het volgende aan te geven.

OS:
Office versie:
En welke handelingen je precies uitvoert.

Het eerste wat ik zo kan vinden:

YouTube: Splwow64.exe System Error When Printing Windows 10 - Fix

[Jim423]

Vond ook dit nog:

Here is the workaround I'm using.

Open notepad, copy the command below into it and save as a ".bat" file.

TASKKILL /F /im splwow64.exe

Mine for instance mine is called "Killspl.bat" and saved on the C: drive.

Then copy the script below into a new notepad file and save it with the ".vbs" extension.

Dim WinScriptHost
Set WinScriptHost = CreateObject("WScript.Shell")
WinScriptHost.Run Chr(34) & "C:\KillWOW.bat" & Chr(34), 0
Set WinScriptHost = Nothing

After creating these two files go to "Task Scheduler" and set it to run the second file you made saved as ".vbs" every 5-10 minutes.

This not only kills the process, but also does not show the annoying shell pop up window every time it runs. This was done after trying the hotfix, and all other methods and solutions I could find.

[nelizmastr]

Is het een optie om niet te printen als PDF maar de export functie te gebruiken? Die gebruikt naar mijn weten niet de print spooler.

Dat, of overweeg eens iets als cutepdf.

[sph1980]

nelizmastr schreef op zaterdag 22 juni 2024 @ 23:04:
Is het een optie om niet te printen als PDF maar de export functie te gebruiken? Die gebruikt naar mijn weten niet de print spooler.

Dat, of overweeg eens iets als cutepdf.

Hoi Helizmastr, bedankt voor je tip.
Dit geeft hetzelfde resultaat, dus helaas.

[F_J_K]

Jim423 schreef op zaterdag 22 juni 2024 @ 16:29:
Then copy the script below into a new notepad file and save it with the ".vbs" extension.

Nadeel van hergebruik van scriptoids via AI of Google: ze lopen achter.

VBS is deprecated, wordt op afzienbare termijn niet meer ondersteund door Windows. Maar hetzelfde doen met een meer moderne taal kan natuurlijk ook: regelmatig het proces killen met powershell.

Maar dat is een noodverband. Probeer eerst eens (na backup, natuurlijk) de timeout van SplWOW64TimeOutSeconds te verlagen. Splwow64.exe-proces wordt niet afgesloten als een afdruktaak is voltooid in W... maar volgens https://answers.microsoft...ba-4eef-907a-daf5aebb65f2 in tenminste Win10 nog steeds relevant.

[sph1980]

Deef_K schreef op zaterdag 22 juni 2024 @ 12:39:
Om je te kunnen helpen is het misschien verstandig om het volgende aan te geven.

OS:
Office versie:
En welke handelingen je precies uitvoert.

Het eerste wat ik zo kan vinden:

YouTube: Splwow64.exe System Error When Printing Windows 10 - Fix

• Microsoft WINDOWS 11 HOME 10.0.22631 build 22631
• Lenovo_MT_81YK_BU_idea_FM_IdeaPad 5 15IIL05
• Intel(R) Core(TM) i7-1065G7 CPU @ 1.30GHz, 1498 MHz, 4 core(`s), 8 logische processor(s)
• Microsoft Office Professioneel Plus 2021

Ik open het werkboek.
Ga ongeacht welk werkblad in en hoef niets in te vullen oid.
Ook met lege velden kan ik dan een knop indrukken met bijvoorbeeld de volgende code:

Sub PDF_FACTUUR()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

If Range("KLAD!B1").Value = "" Then
Msg = "GEEN KLANT GEKOZEN"
Style = vbOKOnly
Title = "FACTUUR WEGSCHRIJVEN EN INBOEKEN"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
GoTo EINDE
End If

If Range("FACTUUR!K6").Value <> "NOG GEEN GEGEVENS BEKEND" Then
Msg = "FACTUUR AL IN DATABASE EN WIJKT AF VAN ORIGINEEL!" & vbNewLine & "OVERSCHRIJVEN?"
Style = vbYesNo
Title = "FACTUUR WEGSCHRIJVEN EN INBOEKEN"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Else

GoTo EINDE
End If
End If


DIRECTORY = Range("KLAD!B1").Value
BESTAND = "FACTUUR " & Range("FACTUUR!C9").Value

If Dir(DIRECTORY, vbDirectory) = "" Then
Shell ("cmd /c mkdir """ & DIRECTORY & """")
End If


Application.WindowState = xlMaximized
Sheets("Factuur").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DIRECTORY & BESTAND _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, From:=1, To:=1, OpenAfterPublish:=False


'BIJSCHRIJVEN IN VKF
If Range("FACTUUR!N6").Value > 0 Then
Ondersterij = Range("Factuur!n6").Value + 2
Else
Ondersterij = Range("KLAD!F27").Value + 3
End If


Sheets("VKF").Range("A" & Ondersterij).Value = Range("Factuur!C9").Value 'FACTUURNUMMER
Sheets("VKF").Range("B" & Ondersterij).Value = Range("Factuur!K5").Value 'KLANTNAAM VOLLEDIG
Sheets("VKF").Range("C" & Ondersterij).Value = Range("FACTUUR!K2").Value 'PO / REFERENTIE
Sheets("VKF").Range("D" & Ondersterij).Value = "OPENSTAAND" 'BETAALWIJZE
Sheets("VKF").Range("E" & Ondersterij).Value = "MAP TE VERSTUREN" 'BETAALWIJZE
Sheets("VKF").Range("F" & Ondersterij).Value = Range("Factuur!C10").Value 'FACTUURDATUM
Sheets("VKF").Range("H" & Ondersterij).Value = Range("Factuur!C41").Value 'FACTUURBEDRAG
Sheets("VKF").Range("K" & Ondersterij).Value = Range("Factuur!K4").Value 'TYPE POST
Sheets("VKF").Range("L" & Ondersterij).Value = Range("Factuur!O12").Value 'KOR
Sheets("VKF").Range("M" & Ondersterij).Value = Range("Factuur!C11").Value 'ORDERNUMMER


Call BEWAAR_FACTUUR_IN_DB
Call MAILTEKST

Range("K2:K3").Select

Msg = "MAP:" & vbNewLine & DIRECTORY & vbNewLine & vbNewLine & "BESTAND:" & vbNewLine & BESTAND & ".pdf" & vbNewLine & vbNewLine & "Openen?"
Style = vbYesNo
Title = "FACTUUR WEGGESCHREVEN EN INGEBOEKT"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)


If Response = vbYes Then
Shell "C:\WINDOWS\explorer.exe """ & DIRECTORY & "", vbNormalFocus
Else
GoTo EINDE
End If

EINDE:
End Sub

[sph1980]

F_J_K schreef op zondag 23 juni 2024 @ 11:59:
[...]

Nadeel van hergebruik van scriptoids via AI of Google: ze lopen achter.

VBS is deprecated, wordt op afzienbare termijn niet meer ondersteund door Windows. Maar hetzelfde doen met een meer moderne taal kan natuurlijk ook: regelmatig het proces killen met powershell.

Maar dat is een noodverband. Probeer eerst eens (na backup, natuurlijk) de timeout van SplWOW64TimeOutSeconds te verlagen. Splwow64.exe-proces wordt niet afgesloten als een afdruktaak is voltooid in W... maar volgens https://answers.microsoft...ba-4eef-907a-daf5aebb65f2 in tenminste Win10 nog steeds relevant.

Thanks, die time-out heb ik naar 2 seconden gebracht en zonder de PC opnieuw op te starten oid gelijk resultaat bij het maken van .PDF via VBA script!!