• 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.

Macro met vooraf geselecteerde netwerk printer

Status
Niet open voor verdere reacties.

Soppuh

Gebruiker
Lid geworden
11 mei 2015
Berichten
61
Goedemiddag,

Ik wil graag even aanhaken op het volgende gesloten topic.
Ik zit op een netwerk, met meerdere printers. Nu heb ik een Excel bestand, met een knop waar een print macro aan hangt. Nu wil ik dat vanaf welke compunter in het hele netwerk ook, zodra geprint wordt, altijd op dezelfde printer geprint wordt.
De printer waar op geprint gaat worden, mag niet ingesteld worden als Standaard printer.

https://www.helpmij.nl/forum/showthread.php/273831-Andere-printer-standaard-per-bestand

Ik krijg het niet voor elkaar om de opgenomen macro te krijgen die de geselecteerde printer toont. Misschien doe ik wel iets verkeerd.
Als ik macro opnemen kies, doe ik de volgende stappen:
- Klik op "Bestand"
- Klik op "Afdrukken"
- Selecteer de netwerkprinter uit de lijst
- Klik op "Afdrukken"

Maar bij mij komt de volgende code naar voren.
Code:
Sub TESTPRINTEN()
'
' TESTPRINTEN Macro
'

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

Dit is iets heel anders dan wat in de reacties staan in het gesloten topic.

Ik ben heel erg benieuwd. Alvast bedankt!
 
Laatst bewerkt:
Zo stel je de printer in
Code:
Application.ActivePrinter = "HP PageWide Pro 477dw MFP op Ne04:"
En met onderstaande bestandje kan je kijken waardoor je "HP PageWide Pro 477dw MFP op Ne04:" kan vervangen.
 

Bijlagen

  • helpmij printer poort activeprinter.xlsm
    21,1 KB · Weergaven: 48
Zo stel je de printer in
Code:
Application.ActivePrinter = "HP PageWide Pro 477dw MFP op Ne04:"
En met onderstaande bestandje kan je kijken waardoor je "HP PageWide Pro 477dw MFP op Ne04:" kan vervangen.

Top!! Het werkt! Enorm bedankt! :thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan