[VB] fax_macro vraag

[Verwijderd]

Wij hebben een sjabloon gemaakt met word voor alle gerbuikers voor het versturen van een fax. Er is een knop toegevoegd in de werkbalk die ze aan moeten klikken willen ze de fax versturen. Achter die knop schuilt deze 'tekst':

Visual Basic:

Sub FAX_MACRO()

  Dim HuidigePrinter
  
  HuidigePrinter = ActivePrinter
  
    ActivePrinter = "QPF Fax Printer"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False
        
  ActivePrinter = HuidigePrinter
  
End Sub

Nu is het zo dat de standaard printer (een Xerox) niet blijft staan. Dus wanneer er een fax verstuurd wordt, is de standaard printer veranderd in 'qpf fax printer' terwijl dat dan gewoon de Xerox behoort te zijn.
Naar mijn weten is de macro goed...
Weet iemand hoe het kan dat de standaard printer veranderd wordt in de qpf fax printer?

[ Voor 10% gewijzigd door curry684 op 26-05-2004 11:49 . Reden: [code]-tags voor leesbaarheid... ]

[OZ-Gump]

Heb je al met breakpoints gewerkt en door je code heen gestept? (debuggen noemen ze dat geloof ik)

Hoe kom je aan deze code? Zelf gemaakt, macrootje gedraaid, van internet geplukt? Kijk wat de waarde van elke variabele is en je weet alweer iets meer van wat je gaat doen.

De vraag is natuurlijk ook of de 'standaardprinter' ook echt de Windows standaardprinter is, of gewoon de printer waarvan Word denkt dat dit document daarop moet worden afgedrukt...