Combobox med printere

Du kan ikke styre dine printere indenfor Word - og du kan heller ikke spørge på priterne - bortset fra den aktive printer. Jeg bruger noget i stil med dette, når jeg skal arbejde med printerne (hvor jeg må kende printernavnene på forhånd):

    Select Case ActivePrinter
        Case "Printernavn" ' optaget via makrooptageren, hvor du skifter mellem printeren, så du får deres navne
            With Options
                .DefaultTray = "Upper Paper Tray"
            End With
        Case "Printernavn2"
            With Options
                .DefaultTray = "Lower Paper Tray"
            End With
    End Select

Du kan dog også lave et API kald, hvor du spørger på printere, men du skal stadig selv sætte f.eks. papirbakkerne for de enkelte printere

Jeg har nu lavet en dll i VB som kan kaldes fra word. Jeg får i word et lille vindue frem med en fin lille liste over printere som er installeret i windows. Mit problem er nu at få overført den valgte værdi til word efter afslutning af dll-filens form. Er det noget kode som skal placeres i klassemodulet eller i formen. Er der en som kan hjælpe?

Kan du ikke placere koden i et almindeligt modul i Word?

Jeg kan ikke flytte koden til et modul i word. Du kan ikke i word sige 'for each printer in printers....'.

Koden til dll'filen ser ud som nedenstående og jeg har brug for at den valgte printer bliver returneret til det sted i word hvorfra den bliver kaldt.

I word ser min kode ud som:

dim x as visform.class1
set x=createobject("visform.class1")
prn=x



Koden som ligger i form1 i dll'en:

Private Sub Command1_Click()

  unload me

End Sub

Private Sub Form_Load()

  Dim pr As Printer


  For Each pr In Printers
      List1.AddItem pr.DeviceName
  Next pr


  List1.Text = Printer.DeviceName

End Sub



Koden som ligger i Class1 i dll'en:



Public Function visform()

  Form1.Show 1

End Function

Jeg har ikke prøvet at arbejde med dll'er før i forbindelse med Word... men du kunne eventuelt gemme valget i en textfil og derefter læse det ind i Word - bare et forslag :-)

Her er et link med en Word løsning:
http://word.mvps.org/FAQs/MacrosVBA/AvailablePrinters.htm

Det så fint ud. Lige hvad jeg har ledt efter. TAK!

Jeg ved ikke hvorfor jeg ikke gik ind på den side med det samme - den ligger endda under mine Favoritter :-)

Hvis du er tilfreds med svaret må du gerne lukke spørgsmålet :-)