• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Via VBA printer activeren

Status
Niet open voor verdere reacties.
Ik krijg een compileerfout voor strPrinter = FindPrinterNameAndPort("ZDesigner ZD620-203dpi ZPL")

Zal denk ik een fout zijn vanwege hoe ik de module heb ingedeeld. Ik heb een uitgekleed voorbeeld in de bijlage.
 

Bijlagen

  • helpmij voorbeeld VBA printerselectie.xlsm
    53,4 KB · Weergaven: 22
De indeling van je code is goed.

Voeg na
Code: 
Dim strCurrentPrinter As String
deze code toe
Code: 
Dim strPrinter As String
in
Public Sub ZD620_1()

De reden hiervoor is dat bovenaan in Module1, Option Explicit staat.
Met Option Explicit moet je alle variabelen declareren met Dim.
Option Explicit, dwingt je om netjes te programmeren.



Dim strCurrentPrinter As String
Dim strPrinter As String
 
De macro loopt nu netjes door. Ik ga dit testen. Bedankt!

Ik probeer alleen nog het onderstaande te begrijpen
Code: 
Public Sub Main()
Dim sPrinterNameAndPort

sPrinterNameAndPort = FindPrinterNameAndPort("ZDesigner ZD620-203dpi ZPL")

End Sub

Ik begrijp dat u hiermee de gewenste printernaam definieert waarbij de corresponderende poort gevonden dient te worden (= waarde voor sPrinterNameAndPort). Ik zou dan verwachten dat de 'sPrinterNameAndPort' nog ergens voorbij zou moeten komen, maar zie dat nergens gebeuren.
 
Code: 
Public Sub Main()
Dim sPrinterNameAndPort

sPrinterNameAndPort = FindPrinterNameAndPort("ZDesigner ZD620-203dpi ZPL")

End Sub
Kan je verwijderen uit je code, deze was alleen maar om je de mogelijkheden (met al die printername) van de functie FindPrinterNameAndPort te laten zien.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan