Skip to content

Cargar lista impressoras disponibles

December 18, 2012

Imports System  

·  Imports System.Drawing.Printing  
·    
·  Public Class Form1  
·    
·      Private Sub Form1_Load( _  
·          ByVal sender As System.Object, _  
·          ByVal e As System.EventArgs) Handles MyBase.Load  
·    
·          Dim pd As New PrintDocument  
·          Dim Impresoras As String  
·    
·          ‘ Default printer      
·          Dim s_Default_Printer As String = pd.PrinterSettings.PrinterName  
·    
·          ‘ recorre las impresoras instaladas  
·          For Each Impresoras In PrinterSettings.InstalledPrinters  
·              ListBox1.Items.Add(Impresoras.ToString)  
·          Next  
·          ‘ selecciona la impresora predeterminada  
·          ListBox1.Text = s_Default_Printer  
·      End Sub  
·  End Class
Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: