printer per file in Excel

[dabber09]

Volgende vraag over Excel
Ik heb 2 files die ik gebruik en op werk meerdere printers en ook verschillende instellingen. bv nieten en sorteren in file 1 en dubbelzijdig van file 2.
Kan ik dus een printer automatisch selecteren als ik de file open ?

 

[HSV]

private sub workbook_open()
application.dialogs(xldialogprintersetup).show
end sub

Of:

private sub workbook_open()
Application.Dialogs(xlDialogPrint).Show
end sub

 

[dabber09]

hallo HSV
Dus in iedere file moet ik dit stukje VBA zetten.
Kun je me een voorbeeld sturen hierover.
Zelf ben ik niet zo thuis in VBA

 

[HSV]

Wat is het doel er van?
Bij het openen direct printen zal niet de bedoeling zijn lijkt me.

Je kan in een code aangeven welke printer je standaard wil voor elk bestand.
Bv.
application.activeprinter = "HP deskjet....."

 

[dabber09]

Als ik je een bestand stuur en instellingen welke printer zou je me dan de VBA code kunnen toevoegen?
In de Excel file, wat ik toegevoegd heb, wil ik alleen tabblad "Printfile" printen met de instellingen die ik ook heb meegestuurd.
Voor jou misschien een kleinigheid maar dat bespaard met tijd.
In de Excel file heb ik wel een paar tabbladen ge-delete anders was hij te groot geweest.

 

[snb]

Ik heb de nietjesoptie in VBA nog niet gevonden..

 

[HSV]

Ik wist niet eens dat een printer kon nieten.

Een macro opnemen met de recorder is het beste.

Daarna kijk je naar het resultaat in bv. module1.
Het zal iets worden van:

sub macro1()
application.activeprinter = "Cannon.........:" op.....
end sub

Je moet dan een aanpassing doen in de code om het terug te zetten naar je standaard printer.

In de module ThisWorkbook plaats je dan de code:

dim standaardprinter as string
private sub workbook_open()
 standaardprinter = application.activeprinter
 application.activeprinter = "Cannon.....op Ne02:"
end sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 application.activeprinter = standaardprinter
End Sub

Misschien kan het ook in een keer in de private sub before_print event, maar dat moet ik dan eerst zelf testen.

 

[snb]

Volgens mij kun je je die moeite besparen.