Controle op internet en printer

[Oude leerling]

Geacht forum,

Voordat ik een macro run wil ik dat er een controle is of internet beschikbaar is
en of de printer stand-by is
Zo niet dan moet er een mededeling komen wat er niet beschik baar is

Vriendelijke groet , Jaap

 

[JEC.]

Om je internet te checken:

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Public Function GetConnectionStatus() As Boolean
GetConnectionStatus = InternetGetConnectedState(0&, 0&)
End Function

Sub status()
MsgBox GetConnectionStatus
End Sub

Krijg je geen error wanneer je printer standby is? Dan kun je het af met een error handler.

 

[Oude leerling]

JVeer

Is het ook mogelijk het met "If" te realiseren

Het is namelijk zo dat als de macro bij het verzenden en printen uitkomt
er al een groot aantal bewerkingen gedaan zijn
Vandaar de controle vooraf

Ik wilde het zo realiseren dat als internet als zowel printer beschikbaar zijn
het programma mag doorlopen.
Als er wat niet in orde is MsgBox met de mededeling "Geen Internet" of "Printer niet Stand-By"
En dan Exit Sub

 

[JEC.]

Ja dit was een voorbeeld. Misschien dat dit al wel werkt. Eerst verschijnt er een dialogbox met beschikbare printers.
Als je er eentje kiest en de internetconnectie is aanwezig, mag je macro uitgevoerd worden.

Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Public Function GetConnectionStatus() As Boolean
GetConnectionStatus = InternetGetConnectedState(0&, 0&)
End Function

Sub jec()
 If Application.Dialogs(9).Show And GetConnectionStatus Then
   je code....
 End If
End Sub

 

[Oude leerling]

Ik krijg het niet voor elkaar , kom er niet uit
Heb een testbestandje bijgesloten
Kunt u , indien mogelijk , de macro aanvullen met de twee testen.

Vriendelijke groet , Jaap

 

[Oude leerling]

Controle of Internnet werkt heb ik voor elkaar
Zie de bijlage

Nu alleen nog controle of mijn printer stand-by is

 

[alphamax]

Naar mijn weten is er geen betrouwbare methode om te kijken als een printer standby is.
Zie https://www.helpmij.nl/forum/showthread.php/956046-Printer-status-opvragen?highlight=printer+status voor een soortgelijke vraag.

 

[JEC.]

Ik ging er vanuit dat de dialogbox actieve printers liet zien. Blijkbaar niet dus

 

[Oude leerling]

Jammer dat er geen oplossing is om te controleren of je printer stand-by is
Een ieder bedankt voor de gedane moeite
Vriendelijke groet , Jaap