Application. printer setup vraag

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
720
goedemiddag allen,

Zit met een vraagje en dacht stel hem ff aan de Die Hards hier :)

Als m'n file voor de 1e keer opstart moet men bepaalde keuzes maken voor de instellingen.

Voor m'n printers doe ik dat met:

Code: 
    With Worksheets("Control")
      MsgBox ("                            INSTELLEN PRINTERS" & vbNewLine & vbNewLine & "U heeft gekozen om de printer die " & Printer & " print in te stellen")
      Const xlDialogPrinterSetup = 9
      prntOld = Application.ActivePrinter
      Application.Dialogs(xlDialogPrinterSetup).Show  
      prntNew = Application.ActivePrinter
      [COLOR="#FF0000"]If Application.ActivePrinter = "" Then MsgBox ("OK")[/COLOR]    
      If ActiveCell.Address = "$Q$14" Then .Range("Q14") = prntNew
      If ActiveCell.Address = "$Q$16" Then .Range("Q16") = prntNew
      Application.ActivePrinter = prntOld              ' zet oude active printer terug
      
      If .Range("Q14") <> "" And .Range("Q16") <> "" Then
        VARWik = 2
        Text1 = " Ok Printer instellingen voldaan!"
        Text2 = " OK & Doorgaan"
        Text3 = " Info #000"
        WIKUserForm.Show
        .Range("H16") = "Bussy"
      End If
    End With

Men zou 2 printers moeten kiezen, maar alleen 1 zou ook moeten kunnen.
Men krijgt de xlDialogPrinterSetup menu en als men hier nu annuleren zou geven moet ik dit kunnen achterhalen, maar hoe doe ik dat?

Heb nu "If Application.ActivePrinter = "" Then MsgBox ("OK")" staan maar dat werkt dus niet.

Welke mogelijk is er dus als men annuleren kiest?

Many thanks

Vr. Gr.

Dutch
 
Laatst bewerkt:
volgens mij is ptrnnew "empty" of "false" of iets dergelijks wanneer er wordt geannuleerd.

oeps verkeerde variabele, je moet dan de dialog return afvangen indien die er is:

Application.Dialogs(xlDialogPrinterSetup)
 
Laatst bewerkt:
Waarom stel je de printer niet in met VBA ?
 
wampier zei:
volgens mij is ptrnnew "empty" of "false" of iets dergelijks wanneer er wordt geannuleerd.

oeps verkeerde variabele, je moet dan de dialog return afvangen indien die er is:

Application.Dialogs(xlDialogPrinterSetup)
Klik om te vergroten...

Hoi Wampier,

Heb geprobeerd met volgende:

Code: 
 ' If Application.Dialogs(xlDialogPrinterSetup) = False Then MsgBox ("OK")
 ' If Application.Dialogs(xlDialogPrinterSetup) = Empty Then MsgBox ("OK")
 ' If Application.Dialogs(xlDialogPrinterSetup) = "" Then MsgBox ("OK")

Maar geen van allen succes :-(
 
Hoi Wampier, ben er uit.

Met de volgende oplossing:
Code: 
  MsgBox ("INSTELLEN PRINTERS" & vbNewLine & vbNewLine & "Kies de juister printer papier formaat door de juiste cel te activeren" & vbNewLine & vbNewLine & "en vervolgens op de Inst. Printer knop te klikken")
  If ActiveCell.Address = "$Q$14" Or ActiveCell.Address = "$Q$16" Then
    If ActiveCell.Address = "$Q$14" Then Printer = "A4"
    If ActiveCell.Address = "$Q$16" Then Printer = "A3"
    With Worksheets("Control")
      MsgBox ("                            INSTELLEN PRINTERS" & vbNewLine & vbNewLine & "U heeft gekozen om de printer die " & Printer & " print in te stellen")
      Const xlDialogPrinterSetup = 9
      prntOld = Application.ActivePrinter
      [COLOR="#FF0000"]If (Application.Dialogs(xlDialogPrinterSetup).Show) = True Then[/COLOR]
        prntNew = Application.ActivePrinter              
        If ActiveCell.Address = "$Q$14" Then .Range("Q14") = prntNew
        If ActiveCell.Address = "$Q$16" Then .Range("Q16") = prntNew
        Application.ActivePrinter = prntOld                    
      [COLOR="#FF0000"]Else[/COLOR]
        If ActiveCell.Address = "$Q$14" Then .Range("Q14") = "Geen A4 Printer"
        If ActiveCell.Address = "$Q$16" Then .Range("Q16") = "Geen A3 Printer"
      [COLOR="#FF0000"]End If[/COLOR]      If .Range("Q14") <> "" And .Range("Q16") <> "" Then
        VARWik = 2
        Text1 = " Ok Printer instellingen voldaan!"
        Text2 = " OK & Doorgaan"
        Text3 = " Info #000"
        WIKUserForm.Show
        .Range("H16") = "Bussy"
      End If
    End With
  Else
    MsgBox ("                         INSTELLEN PRINTERS" & vbNewLine & vbNewLine & "U heeft niet de juiste cel geactiveert!" & vbNewLine & vbNewLine & "Klik op cel (activeren) Q14 [A4]  of  cel Q16 [A3]" & vbNewLine & vbNewLine & " en vervolgens op de Inst. Printer knop te klikken"): GoTo Door
  End If
Door:

Thanks voor de moeite

Vr. Gr.

Dutch
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan