Het subscript valt buiten het bereik (win7)

[marvy]

Hallo,

Ik ben overgeschakeld van XP met office2007 naar windows 7 met office 2007.

De volgende marcro geeft nu echter deze fout: Het subscript valt buiten het bereik (win7)
Mijn colega met XP kan deze macro gewoon nog steeds uitvoeren

Sub PrintA4()
    Dim grafieken() As Variant
    grafieken = Array("Graf1", "Graf2", "Graf3")
    Dim cho As ChartObject
    Dim wsh As Worksheet
    Set wsh = Sheets("Grafieken Productie")
    Dim grafiek As Variant
    For Each cho In wsh.ChartObjects
        cho.Activate
        For Each grafiek In grafieken
            If ActiveChart.ChartTitle.Text Like CStr(grafiek) Then
                Application.ActivePrinter = "\\PSMSC007\PRTAIBG1 op Ne03:"
                With ActiveChart.PageSetup
                    .PaperSize = xlPaperA4
                    .CenterHorizontally = True
                    .CenterVertically = True
                    .FitToPagesTall = 1
                    .FitToPagesWide = 1
                End With
                wsh.PrintOut
            End If
        Next
    Next
End Sub

 

[snb]

Kun je svp eerst de VBA code tussen code tags zetten ?

 

[Elsendoorn2134]

Marvy,

De functie "ActivePrinter" kijkt naar een lijst met de geïnstalleerde printers in Windows.
Dit is niet dezelfde lijst als alle printers in een netwerk, deze moet eerst gekoppeld worden.
De printer die je aanroept is geen bestaan de printer binnen deze lijst.
Oplossing: Installeer de printer of laat dit doen door de IT afdeling.
Daarna kan de printer in je macro gebruikt worden.

Veel Succes.