Foutmelding bij snelafdrukken WORD 2010

[Verwijderd]

Dag heren,

Als ik in mijn normal.dotm word bestand een snelafdruk uitvoer. Dan krijg ik een pop-up scherm en daarin moet ik een logo kiezen. Als ik hier een logo uitkies, krijg ik een foutmelding.

Fout 5 tijdens uitvoering:

Ongeldige procedure-aanroep of ongeldig argument

Als ik de 'foutopsoring' uitvoer, wordt de onderstaande regel ge-highlight:

code:

strPrinter = Left (Activeprinter, InStr (ActivePrinter, " ") - 1)

[pedorus]

Ik denk dat ActivePrinter geen spatie bevat, waardoor Left wordt aangeroepen met argument -1 voor de lengte, wat foutmelding 5 geeft. Eenvoudige oplossing is misschien strPrinter=Activeprinter, maar ik weet niet wat die macro verder doet.

[Verwijderd]

pedorus schreef op maandag 10 januari 2011 @ 17:51:
Ik denk dat ActivePrinter geen spatie bevat, waardoor Left wordt aangeroepen met argument -1 voor de lengte, wat foutmelding 5 geeft. Eenvoudige oplossing is misschien strPrinter=Activeprinter, maar ik weet niet wat die macro verder doet.

In word 2003 doet het wel wat het moet doen, maar in office 2010 werkt het niet. Maar als ik de foutmelding krijg en ik beëindig het. En ik probeer weer snelafdrukken, dan doet die het wel. Maar dan krijg ik de logo verkeerd afgedrukt, maar hij doet het wel (logo plaatsen).

Hier wat meer van de code die ik gebruik:

code:

If HeeftDocLogo = True And blnNoLogo = False Then
                    'Logo instellingen zetten
                    Haal_Configuratie_Op
                    strPrinter = Left(ActivePrinter, InStr(ActivePrinter, " ") - 1)
                    intTray = CInt("0" & System.PrivateProfileString(strPrinterBestand, strPrinter, "Voordruk"))
                    For Each secTemp In ActiveDocument.Sections
                        If intTray > 0 Then
                            With secTemp.PageSetup
                                .FirstPageTray = intTray
                                .OtherPagesTray = intTray
                            End With
                        Else
                            With secTemp.PageSetup
                                .FirstPageTray = wdPrinterDefaultBin
                                .OtherPagesTray = wdPrinterDefaultBin
                            End With
                        End If
                    Next secTemp
                End If
                .Execute
            End If
        End With
    Else
        If HeeftDocLogo = True And blnNoLogo = False Then
            'Logo instellingen zetten
            Haal_Configuratie_Op
            strPrinter = Left(ActivePrinter, InStr(ActivePrinter, " ") - 1)
            intTray = CInt("0" & System.PrivateProfileString(strPrinterBestand, strPrinter, "Voordruk"))
            For Each secTemp In ActiveDocument.Sections
                If intTray > 0 Then
                    With secTemp.PageSetup
                        .FirstPageTray = intTray
                        .OtherPagesTray = intTray
                    End With
                Else
                    With secTemp.PageSetup
                        .FirstPageTray = wdPrinterDefaultBin
                        .OtherPagesTray = wdPrinterDefaultBin
                    End With
                End If
            Next secTemp
        End If
        ActiveDocument.PrintOut
    End If