VB program til forespørgsel af Printers papirbakker

Har lidt Word VBA stuff om emnet her - http://kursusmaterialer.dk/Word_VBA/Word_VBA_-_Kode/Styring_af_papirbakker.aspx - måske du kan bruge noget af det.

Her er lidt at rode med :

Dim pSource As PaperSource
Dim pd As New PrintDocument()

For i = 0 To pd.PrinterSettings.PaperSources.Count - 1
    pSource = pd.PrinterSettings.PaperSources.Item(i)
    MsgBox(pSource.SourceName)
Next

Glemte lige en detalje.
Husk følgende linie:

Imports System.Drawing.Printing

hov, glemte nok lige at skrive at jeg ikke kan programmere VB, nok derfor jeg ikke kan få det til at virke :-(

Så måske overskriften er lidt misvisende.

Jeg har kun VS2008, og det er sikkert noget gammel kode, den vil ihvertfald ikke kompile det som VB.net

Hvis der var en som havde styr på VB og kunne lave programmet og evt. sende det ville det jo være super :-)

Det kan jeg da godt...mailmig en beskrivelse af vad det skal kunne!

Mail : nissen65@comxnet.dk

opret en textbox i form1 og sæt den til multiline i egenskaber.

Dim prtPrinter As PrinterSettings = Nothing
Dim strprn As PrinterSettings.StringCollection = PrinterSettings.InstalledPrinters

prtPrinter = New PrinterSettings
For i = 0 To strprn.Count - 1
  TextBox1.Text += strprn(i).ToString + Chr(13) + Chr(10)
  prtPrinter.PrinterName = strprn(i)
  For i1 = 0 To prtPrinter.PaperSources.Count - 1
    TextBox1.Text += prtPrinter.PaperSources.Item(i1).SourceName + Chr(13) + Chr(10)
  Next
Next