Nyomtató által ismert papírok listáját megjelenítő kontrol

A mellékelt PaperListLibrary mappában lévő projektet fordítsa le, majd ezt követően a ToolBox-ra felvehető egy PaperList kontrol.

Ezt a kontrolt bármely Form-ra feltehetjük, a lista máris rendelkezésre áll benne. Ezt úgy érjük el, hogy annak konstruktorában végezzük el a ListBox feltöltését, melyhez szükségünk van egy PrintDocument osztályra. Ennek a PrinterSettings property-jén keresztül elérhető egy PaperSizes property, ami nem más, mint egy olyan kollekció, melynek minden eleme egy-egy PaperSize osztály. Ez a PaperSize osztály írja le számunkra az egyes papírfajták megnevezéseit, méreteit és annak típusát.

         Dim pd As New PrintDocument()
         Dim ps As PaperSize
         For Each ps In  pd.PrinterSettings.PaperSizes

A PaperName adja a papír megnevezését, míg a Width és Height property-k adják a szélességet és magasságot 1/100 inch-ben. Végül a Kind property a papír fajtáját határozza meg.

            listBox1.Items.Add((ps.PaperName + " [" + ps.Width.ToString() + " x " + ps.Height.ToString() + "]"))
         Next ps