Een Printer activeren

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
889
Goedenavond,

Loop tegen het volgende probleem op:

Heb 2 printers en een scanner/printer.
Tevens een PDF printer
Bij data van gegevens welke ik wil uitprinten of een PDF wil maken loop ik tegen het volgende probleem op:

Als ik wil printen moet ik de juiste Printer activeren
Waarom, wel net ervoor kan ik een pdf printer gebruikt hebben.
Dus al ik dan het echt wil printen, moet ik de actieve printer switchen.
Dat doe ik dan met application.ActivePrinter
Probleem is dat hij telkens terug valt op m'n Printer/scanner.
Deze heeft een usb aansluiting, maar ook via het netwerk
Ondanks dat de printer uit staat, geeft hij telkens weer dat de Scanner/printer actieve is???
Heeft dat te maken dat deze printer/Scanner via het netwerk (ook) aangesloten zit?
De Printer/Scannner staat gewoon uit?
En de A4 printer staat aan??/

Heeft iemand hier kaas van gegeten? :-)

Groetjes

Dutch
 
Goedenavond,
Ja zoiets :)
maar normaal gesproken, kan je met Application.ActivePrinter switchen.
En dat werkte ook goed.
Sinds vorige week een nieuwe printer aangesloten, en loop dat dat probleem op, dat ik deze nieuwe printer niet kan aansturen met VBA?
 
Goedenavond Senso & AlphaMax,

Weer even bezig geweest.
Gelijk de boel hier aangepast.
Heb een testfile.
Dit file geeft Namen en de poort v/d printers.
Dat werkt goed.
Vervolgens testen met switchen van printer met Application.ActivePrinter
Zo te zien werkt dit ook goed.
Vervolgens het printen en daar gaat het fout.
Heb een PrinterReady ingebouwd, voor geval de printer nog uit staat.
Werkte tot voor kort goed, maar sinds de nwe printer niet meer.
Hij haalt Printer Naam van wb. Control AJ4.
Zal zo de link van alphamax bekijken.

Hoi Alphamax, zo te zien hetzelfde probleem.
Maar zie niet echt de oplossing
 

Bijlagen

Laatst bewerkt:
Ben nog even bezig geweest en kwam het volgende fenomeen tegen.
Als ik met Application ActivePrinter, een printer instel en ik doe dit ook met voor PrinterReady, dan werkt het maar:
Allebeide zelfde printer instellen.
maar bij ApplicationActivePrinter met poortnummer
en bij PrintReady zonder poortnummer
Morgen verder testen
 

Bijlagen

Laatst bewerkt:
Goedemorgen,

Weer even verder aan het testen, maar helaas werkt nog niet hoe het zou moeten.
- bij instellen Application.ActivePrinter als men bv. A3 Printer kiest
- en bij instellen PrinterReady op A4 Printer
- Geeft aan dat PrinterReady actief is, maar actieve Printer is de A3 Printer
- Maar Print niet
- Check en conclusie, als allebeide op dezelfde Printer staat (A4) print hij
- Hierbij maakt niet uit of de printer als "standaard Printer" staat ingesteld onder Apparaten & Printers.
 
Goedemiddag,
Het switchen van de printers lukt nu, alleen heb nog één probleempje.

De TS9500 is een Scanner / een A3 Printer en een A4 printer.
Probleem is dat hij continue de papierbron v/d A3 wil gebruiken.
Ondanks dat ik als papierbron de cassette aangeef voor de A3.
Vraag is nu: hoe stuur ik deze eigenschap aan?
Opgelost :)Moest ergens nog een vinkje zetten (Altijd afdrukken met huidige instellingen)
Weet nog niet als ik een A3 wil printen of het goed werkt, maar komt later.

Zit nog wel met een vraagje:

Wat is het verschil tussen:
- Onder Apparaten & Printers de printer als standaard printer instellen
- en Application.ActivePrinter.
Weet niet of ik het goed heb, maar dacht zelf 1e is voor onder windows en 2e voor VBA gebeuren?
 

Bijlagen

Laatst bewerkt:
Goedemorgen,
Bezig met bovenstaande te implementeren in m'n hoofdfile.
Loop toch nog tegen een probleem op.
Het testfiletje hierboven loopt goed.
Maar in m'n Hoofdfile, draait alles goed, alleen als hij moet printen, gebeurd er niets.
Hij doorloopt alles keurig, de juiste printer wordt aangestuurd met Application.ActivePrinter

Code: 
      Application.ActivePrinter = ActiveWorkbook.Worksheets("Control").Range("AJ4") & " " & ActiveWorkbook.Worksheets("Control").Range("AM4")      'zet evt. PDF printer terug naar Canon printer.. met poortnummer
Nogmaals:
      If PrinterReady(Sheets("Control").Range("AJ4")) Then        ' checkt of je standaard printer[wb Control D4] aan staat en dan printen
        If KleurOfCheckBox = True Then Worksheets("DBase").PageSetup.BlackAndWhite = True  ' zwart-wit aan
        If KleurOnCheckBox = True Then Worksheets("DBase").PageSetup.BlackAndWhite = False ' kleur aan
        RowLast = Worksheets("DBase").Range("BK" & maxR).End(xlUp).Row     ' zoekt weer de laatste gebruikte regel
        .Range("BK1:" & "BT" & RowLast + 1).PrintOut copies:=1, Collate:=True
      Else
        VarWIK = 1
        Text1 = " De Printer staat uit. Zet deze eerst aan voor u verder gaat om de documenten te Printen en gegevens verlies te voorkomen! "
        Text2 = " Geef OK & Doorgaan na het aanzetten van de Printer. _____________________________________________ Ok en Doorgaan"
        Text3 = " Fout #064"
        WIKUserForm.Show
        VarWIK = 3
        Text1 = " Wilt u nog steeds dit Userform printen?"
        Text2 = " Geef een keuze: _____>>>>>>>>>> _________________________________________ Ok Ja & Doorgaan  of  Nee Annuleren."
        Text3 = " Info #011"
        WIKUserForm.Show
        If Deur1 = 0 Then GoTo Uit        ' Nee
        If Deur1 = 1 Then GoTo Nogmaals   ' Ja
      End If
    End With
  End If
Uit:

Zou het een probleem kunnen zijn met geheugen?
Is een behoorlijk groot file.
Iemand een idee?

Thanks
Dutch
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan