Auteur Topic: Printer linken aan tabblad (gelezen 30552 keer)

Raf Claessens · « **Gepost op:** 03 april 2019, 08:04:07 »

Goedemorgen,

Op mijn werk hebben we een Excel-bestand waarin we lijsten en labels maken. Kort gezegd komt het er op neer dat we in Blad 1 bepaalde gegevens ingeven, Blad 2 hebben we zo opgebouwd dat hier bepaalde lijsten uit getrokken kunnen worden en Blad 3 is zo opgemaakt dat er labels afgedrukt kunnen worden.

Blad 2 en Blad 3 moeten met verschillende printers afgedrukt worden. Het komt al eens voor dat we ons hiermee vergissen van printer. Bestaat er een instellingsmogelijkheid dat Blad 2 automatisch met printer X afgedrukt wordt en Blad 3 automatisch met printer Y?

Met vriendelijke groeten,

Raf Claessens

emields · « **Reactie #1 Gepost op:** 03 april 2019, 08:38:02 »

ja die mogelijkheid bestaat.

Raf Claessens · « **Reactie #2 Gepost op:** 03 april 2019, 08:49:15 »

Leuk!

Kan je me ook zeggen hoe je dat moet instellen?

Ex-lid · « **Reactie #3 Gepost op:** 03 april 2019, 08:54:56 »

Citaat

Kan je me ook zeggen hoe je dat moet instellen?

Zo.

Code: [Selecteer]

Option Explicit
Dim SP As String
Dim LP As String
Sub Print_dotch()
    SP = Application.ActivePrinter 'Standaard printer
    LP = "Naam van de Labelprinter"  'Label printer De juiste printernaam invullen.
    Sheets("Blad2").PrintOut Copies:=1 ' vervang Blad2 met de echte naam van het blad.
    Sheets("Blad3").PrintOut ActivePrinter:=LP, Copies:=1 ' vervang Blad3 met de echte naam van het blad.
Application.ActivePrinter = SP 'reset standaard printer.
End Sub

nota: als de naam van de labelprinter niet correct is neemt excel de standaard printer.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: Printer linken aan tabblad (gelezen 30552 keer)

Raf Claessens

Printer linken aan tabblad

emields

Re: Printer linken aan tabblad

Raf Claessens

Re: Printer linken aan tabblad

Ex-lid

Re: Printer linken aan tabblad