printen op een niet-default printer

[willie76]

Ik heb 2 weken geleden ook hierover al een posting gedaan.
Toen wel wat nuttige tips gekregen, maar t is nog steeds niet helemaal opgelost.

Ik heb nu in ThisWorkbook de volgende regels staan:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    ActiveWorkbook.Close True
End Sub


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ActivePrinter = "\\rtcups\brood on Ne09:"
End Sub

Private Sub Workbook_Open()
Sheets("TRAK-formulier").Activate
End Sub

En toch als ik dan een bepaald wekblad binnen dit bestand wil printen print ie op mn default printer (= niet de brood !!!)

Wie heeft er een oplossing voor waar ik de mist in ga ???

ps.: mn doelprinter heet dus brood en via Ctrl-G ?Application.activeprinter heb ik dus achterhaald dat ie als bovenstaand in t netwerk hangt......
mn default printer is "\\rtcups\mondriaan on Ne06:"

 

[OctaFish]

Hebben ze in de vorige post niet aangegeven dat je code moet opmaken met de knop CODE ( #) ? Of je, kortom, de code alsnog even wilt opmaken met die knop

 

[willie76]

thx, was even zoeken, maar heb weer wat geleerd vandaag. Sorry dat ik het niet in een keer heb gedaan.......

 

[snb]

Haal dan eerst deze overbodige code weg:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    ActiveWorkbook.Close True
End Sub

 

[willie76]

Thx snb,

dat lost in elk geval op dat, als ik het werkblad afsluit, er niet een leeg excel venster blijft staan

ECHTER, er wordt nog steeds niet geprint op de brood, maar op de mondriaan......, dus dat probleem is er nog steeds......

Moet ik misschien de code application.activeprinter NIET op ThisWorkbook, maar ergens anders kwijt ???
Ik doe ook maar een gooi......

 

[willie76]

Is er niemand die een VBA-oplossing heeft voor dit, zo eenvoudig lijkend, probleem ????
Ik lees al op het net dat ik niet de enige ben die hier mee zit, maar er moet toch een oplossing voor zijn ???

Wie-o-wie heeft em ???

 

[snb]

Je hebt de oplossingen allang gehad maar blijkbaar niet gebruikt.

Heb je "\\rtcups\brood op Ne09:" al eens geprobeerd ?

Heb je al eens bij de windowsconfiguratie printers en faxapparaten gekeken ?