VBA excel printer kiezen

[HWV]

Beste,

Ik ben nu al een tijd bezig maar krijg het niet voor elkaar.
Ik probeer via een userform een printer te kiezen, ik gebruik het volgende gedeelte in mijn code

Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = ComboBox2.Value
    ActiveSheet.PrintOut copies:=AantalEtiketten.Value, Collate:=True
    Application.ActivePrinter = STDprinter

en deze om de printer aan te geven, die gekozen kan worden

       With Me.ComboBox2
        .AddItem ("\\ZNPSV01\ZNP-inslag-Label on ZNPSV01:")
        .AddItem ("\\ZNPSV01\ZNPR006 on ZNPSV01:")
        .AddItem ("\\tsclient\cannon iP4500 series op LPT1:")
       End With

Elke keer als ik een print opdracht geeft pak hij toch de standaard printer.

Ik werk nu via een terminal server, maar dat hoef toch niet uit te maken.

Groet HWV

 

[HSV]

Werkt goed bij mij HWV.
Alleen heb ik het zonder haken en backslashes gezet, maar dat zal wel zo horen als je op een server zit.

Zet eens 'Stop' in de code zodat je het met F8 kan doorlopen en kunt zien waar de het fout gaat.

 

[HWV]

nog niet

Beste,

Ik heb

On Error Resume Next

even uit de code gehaald nu zie ik dat ik een fout melding krijg op:

Application.ActivePrinter = ComboBox2.Value

Het zou toch niet moeten uitmaken dat ik de waarde via een combobox doe!

Ik snap hem even niet meer.....

Application.ActivePrinter = "ZNPR006 on 192.168.0.21:"

werkt ook niet zelfde foutmelding

Via een code van SNB gekeken hoe de printers heten:



ik gebruik nu deze namen maar helaas nog niet
HWV

 

[snb]

misschein lukt dit wel:

Application.ActivePrinter = "\\ZNPSV01\ZNPR006"

of

Application.ActivePrinter = "\\ZNPSV01\ZNPR006 op 192.168.0.21:"

 

[HWV]

wil niet lukken

Beste,

Bedankt voor de ondersteuning!

Het wil niet lukken ik heb nu volgens mij alle optie`s geprobeerd, om het misschien over een ander boeg te laten lopen dacht ik aan het volgende:
Als ik de printers kan laden in de userfrom en daarvandaan de keuze van de printer kan laten maken.

Ik wil dus eigenlijk onderstaande invoegen in het userform, op de plek waar nu combobox2 staat.

Application.Dialogs(xlDialogPrinterSetup).show

Dit omdat ik dan ook het aantal etiketten in de userform kan aangeven.
Zou dit een optie kunnen zijn!

HWV

 

[snb]

Neem eens een macro op waarin je de printerkeuze wijzigt.

 

[HWV]

Weinig resultaat

Beste,

Ik heb een macro opgenomen waar ik mijn standaard printer veranderd naar de ZNPR006

resultaat macro

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

 

[HWV]

Een andere insteek van dit probleem.

Beste,

Ik heb het nu even opgelost:

Aanpassing;

Application.EnableEvents = False
    Cancel = False
    Application.Dialogs(xlDialogPrint).show , , , AantalEtiketten.Value, , , , , , , , , , False
    Cancel = True
    Application.EnableEvents = True

Ik heb zo aangegeven dat het aantal etiketten die opgegeven worden in de userform worden meegenomen naar mijn printer dialog.
Het is ook een manier er te komen, maar het liefst heb ik dit in mijn userform zelf zitten, nu met één extra veld in te vullen (printer kiezen)

Zijn er suggesties heel graag!.

Groet HWV