Get Default Printer

Visual Basic General

‹ Visual Basic
- Archive
  - Architecture
  - Windows Live
  - VFP
  - Smart Device
  - VB
  - ISV
  - VC++
  - SharePoint
  - Windows Forms
  - Windows Vista
  - SQL Server
  - IE
  - Office
  - Dotnet
  - Visual C#
  - VS Express
  - Visual Studio
  - VS 2008
  - Game

- Previous
  - 1
    - AutoRecover Not Working I am experiencing the same problem. Installed VS05 as VS BI Studio. Auto recover for SQL Server Managment Console works fine. Pipo Tag: Get Default Printer
  - 2
    - Is the order in which you declare arrays significant? Hi, A lot of " variable access time " i guess is down to; how much memory is on the PC that is running the code, whether or not copies of the variables are being held in a memory cache area or a hard-drive cache area or even a processor cache area at the time of execution of a " code segment or block ". how fast the PC is in terms of MegaHertz ( MHz ) and possibly other " factors ". A Microsoft employee on here can better answer this one, i guess. I will 'pass' to any MSFT or any MVP on here....... Regards, S_DS Tag: Get Default Printer
  - 3
    - Copy directory and show progress Use My.Computer.FIlesystem.CopyDirectory http://msdn2.microsoft.com/en-us/library/2swy9y5e(VS.80).aspx and use the Showui overload set to showalldialogs and you will see the progress dialog appear Tag: Get Default Printer
  - 4
    - Transparent Colors cumquats answer (the one marked as answer) should be what you need. What the code does is this: Creates a temporary bitmap image in memory from a given image on the hard drive (panda.bmp) it then calls the maketransparent() method, passing in the color that you want to make transparent then it draws the image on the form using the drawimage() method of the graphics class that is created by calling creategraphics(). so that should be enough for you to get it working, and if you get stuck let me know. Code Snippet Dim TempBitmap As Bitmap TempBitmap = Bitmap.FromFile("C:\Panda.Bmp") TempBitmap.MakeTransparent(Color.FromArgb(255, 0, 255)) Me .CreateGraphics.DrawImage(TempBitmap, 0, 0) Also if you don't know what the actual color value is that is supposed to become transparent, you can find it by using GetPixel() so lets say your image is surrounded by a lime or pink background which is what you want to make transparent, you could use Code Snippet TempBitmap.MakeTransparent(TempBitmap.GetPixel(0,0)) Which gets the color of the pixel in the upper left corner (0,0) and uses that as the color to make transparent. Tag: Get Default Printer
  - 5
    - Repositioning Controls in a Scrolled View I don't think this is a painting off screen issue - I believe the problem lies in the fact that this code assumes that the DataGridViews are in the same order in the Controls collection as they appear on the form - and this is not necessarily the case, especially when inserting new controls. Since you can't count on a specific order in the Controls collection, you would be better to maintain your own List(Of DataGridView). Then as you insert DGV controls on the tab page, you can insert a reference at the same location in the List(Of DataGridView). Then your positioning code can loop through the List, where the order of controls is known. Tag: Get Default Printer
  - 6
    - TreeView Question OK I finally fiqured this out Code Snippet Dim x As New show Dim y As New showit Dim dr As VehiclesDataSet.VListRow y.TreeView1.CollapseAll() For Each dr In VehiclesDataSet.VList.Rows Dim node1 As TreeNode = y.TreeView1.Nodes.Add(dr( "unitnumber" ).ToString()) Dim node1a As TreeNode = node1.Nodes.Add( "Gross Weight" ) If dr( "grossweight" ).ToString() = Nothing Then Dim node1aa As TreeNode = node1a.Nodes.Add( "Not Specified" ) If dr( "unitnumber" ).ToString() = way Then node1aa.EnsureVisible() End If Else Dim node1aa As TreeNode = node1a.Nodes.Add(dr( "grossweight" ).ToString()) If dr( "unitnumber" ).ToString() = way Then node1aa.EnsureVisible() End If End If Dim node1b As TreeNode = node1.Nodes.Add( "Laden Weight" ) If dr( "ladenweight" ).ToString() = Nothing Then Dim node1bb As TreeNode = node1b.Nodes.Add( "Not Specified" ) If dr( "unitnumber" ).ToString() = way Then node1bb.EnsureVisible() End If Else Dim node1bb As TreeNode = node1b.Nodes.Add(dr( "ladenweight" ).ToString()) If dr( "unitnumber" ).ToString() = way Then node1bb.EnsureVisible() End If End If Next dr y.unitnumber.Text = way y.Label1.Text = way & "'s Weight Specs" y.what.Text = "Weight" y.Dock = DockStyle.Fill x.TableLayoutPanel1.Controls.Add(y) x.ShowDialog() but how do you select a specific parent how do you find out which child is selected like node1bb Davids Learning Tag: Get Default Printer
  - 7
    - Horizontal Scroll Position Changes Len White, This is intended behavior: the scroll bars are intended to scroll large contents around its (smaller) container. If you set the LargeChange value, you will notice that the scroll bar thumb control changes size. The large change value would be set to the width (or height for a vertical scroll bar) of the container control, and the maximum to the maximum extents of the contents that you would want visible. Then, position of the contents can be set directly using the scrollbar value(s). For example, if you had a picture (image) that was 648x234 pixels that you wanted to scroll around a container 100x100 pixels in size, the Horizontal and vertical scrollbar Maximums would be 647 and 233 respectively (this is the greatest pixel location that you would need/want to be visible), and the LargeChange values set to 100 and 100 - the size of our 'view' window. The image can be located in the container with the scrollbar values directly. In addition, the top-left point of the image is the values of the scrollbars. http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=1572973&SiteId=1 Tag: Get Default Printer
  - 8
    - Get print tray media sedwards, Please take a look at the following article and I hope it can help you with the problem: You cannot successfully print a document that has multiple pages to multiple printer trays on a PostScript-based printer http://support.microsoft.com/kb/834695/ There is also a similar thread on the topic, please take a look at the discussion, too: http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=644664&SiteId=1 Tag: Get Default Printer
  - 9
    - Data from access database to a String A Datatable holds records, just like in the form of a database. it has rows and columns. What you may want to do is iterate through each row and column and get the values that you want and append them to a string using a StringBuilder. Is there a reason why you are not using a DataGridView to bind your results to In addition, you maybe better of using a Sql/OleDbDataReader to read rows as its faster than filling a datatable using the Sql/OleDbDataReader , unless of course you are needing to bind the results to a DataGridView in which case you need to bind the DataTable to the DataGridView: Me.theDataGridView.DataSource = dtAudstyr.DefaultView Now, to use the Sql/OleDataReader, we keep reading until no more records are left to be read, and obtain the column values via index or columnName. Dim dataReader as OleDbDataReader = commSelectStatus.ExecuteReader(CommandBehavior.CloseConnection) Dim builder as new System.Text.StringBuilder() while dataReader.Read() builder.Append(dataReader(" ColumnName ")) builder.Append(Environment.NewLine) end while Me.lblBruger.Text = builder.ToString() This will append the values for the columns you specify in the dataReader into a stringbuilder and finally show the results in your label. Does this help Tag: Get Default Printer
  - 10
    - Setup and Deployment from Command Line I did find MSBuild.exe but it doesn't like my vdproj file. Then I learned about DevEnv.exe, but I can't find it anywhere on my machine. I'm running VS 2005 on a Windows XP Pro machine. Where would I find the file DevEnv.exe Thanks! Tag: Get Default Printer
  - 11
    - CliickOnce : Manifest may not be valid When this happens, the steps I've seen recommended are: 1. Try uninstalling the application and reinstalling it. [you did that] 2. Try running: mage -cc [you did that] 3. Delete the ClickOnce application store [you did part of this] a. Make sure the DFSVC.EXE process isn＊t running 每 if it is, try killing the process b. Delete the application store folder %userprofile%\Local Settings\Apps c. Delete the folder %userprofile%\Local Settings\Apps d. Delete HKCU\Software\Classes\Software\Microsoft\Windows\CurrentVersion\Deployment Please note that I only added steps #1 and #2 for other folks reading this thread -- I realize that you've already tried these. I believe that #3 should only be used after #1 and #2 are not successful. Would you try #3 and let me know if it helps resolve the problem on this one machine hth, e- Tag: Get Default Printer
  - 12
    - Reading from Doc file onto a Reader Hi Vineed, The word document which extension is .doc has very complex format and cannot be handled simply using TextStream(File.ReadAllText of StreamWriter...). And the this complex format is Microsoft Confidental. But you can try the Microsoft Word Object Library in your .net applications. There are several references on this issue: Understanding the Word Object Model from a .NET Developer's Perspective Easily utilise Microsoft Word functionality in your .NET application Hope this can help you! Thanks! Tag: Get Default Printer
  - 13
    - Write a program, which verifies that the procedure is properly written sorry but we cant do the homework for you. You need to learn yourself to do this. we can give you the logic but pretty much that. When you have coding errors/issues, then post the code you are using and we will try to help. check to see if the textbox contains numeric characters (look at Char.IsDigit() method, only accepts a single char but you can use a loop to go through each character and see if it s a digit or not) if they contain digits then simply count down from the last character in the textbox, going to the first character in a for loop, going in reverse (step -1) Tag: Get Default Printer
  - 14
    - VB Active X DLL fail on 64 bit while we use through VB script I too have the same problem. How to use it under WOW Currently, we are running the activescripts in SQL server jobs to run scheduled jobs. We are moving to sql2005, I registered the dll in component services but can't create the object yet. Anybody solved this problem Thanx, Raj Tag: Get Default Printer
  - 15
    - Setting Today's Date by Default in a Function Public Function DateCode() as string return DateCode(now()) End Function Public Function DateCode(D as date) as String 'Code here Return Whatever End Function Tag: Get Default Printer
  - 16
    - DateTimePicker and language Regional/CUltural formats are taken care of in the System.Globalization Namespace for date and time see: Public Overridable Property DateTimeFormat () As System . Globalization . DateTimeFormatInfo Member of: System . Globalization . CultureInfo Summary: Gets or sets a System.Globalization.DateTimeFormatInfo that defines the culturally appropriate format of displaying dates and times. Return Values: A System.Globalization.DateTimeFormatInfo that defines the culturally appropriate format of displaying dates and times. Tag: Get Default Printer
- Next
  - 1
    - baby lock The best thing would be, that you create for each user an user-account. Tag: Get Default Printer
  - 2
    - TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET They are VB6 functions. Why not use VB6 namespace Anyway: Code Block Public Class Form1 Dim G As Graphics = Me .CreateGraphics Dim TwipsToPixelsX As Integer = CInt (1440 / G.DpiX) Dim TwipsToPixelsY As Integer = CInt (1440 / G.DpiY) End Class The math should probably be done in a function and the graphics disposed, but this form doesn't seem to cause any problems. Tag: Get Default Printer
  - 3
    - InnerCastExeption error. First of all, its an InvalidCastException, not an InnerCastException. It means you are casting one data type to another that can not be directly casted. It is clear you are coding with OPTION STRICT OFF, which is bad in my opinion. You can do a search and read about pros and cons about option strict, but the bottom line is if you had it on, you would have gotten a syntax error and not even been able to run your program until you fixed it. The syntax error is here in this line: Code Block If txtUserName.Text = "Test" & txtPassword.Text = "Test" Then The & operator is used to join strings like Code Block Dim MyString as String = "HELLO " & "WORLD" What you want to use is the AND keyword Code Block If txtUserName.Text = "Test" and txtPassword.Text = "Test" then you can take this one step further and use AndAlso (if you are using .NET 2.0 or higher) Code Block If txtUserName.Text = "Test" AndAlso txtPassword.Text = "Test" then which works the same way as And, but doesn't bother to even look at txtPassword.Text unless txtUserName.Text matched your check and evaulated to true. Again, I highly recommend you turn option strict on for your coding. Tag: Get Default Printer
  - 4
    - How can I check the Internet connection speed via code? First, get the NetworkInterface that is connected to the internet. Check for the right one when you get them all -- in the example: zAllNICs variable-array stores all the networkinterfaces, I'm assuming Item 0 ( Private theNIC As NetworkInterface = zAllNICs(0) ) is the right one, but that will not always work. Once you have the right NetworkInterface, you can check its properties to see how many bytes in total have been received/sent. If you put some time-points around that in code, you can calculate the speed in bytes per second (or whatever units you want). Here's a (hopefully) working example, but note that I scrambled it together from my own speedgraph app that I'm building, so it may not be the most readable code. For Downloadspeed: zDownloadSpeedTrue_UploadSpeedFalse As Boolean = True For Uploadspeed: zDownloadSpeedTrue_UploadSpeedFalse As Boolean = False Also note that you need to browse the internet to see changes to the speed. Setting the timer's interval (in milliseconds) to a higher value will make it have less peaks. Here's the code: Tag: Get Default Printer
  - 5
    - bitmap to Picturebox throught network Is there a way to display a picture from another pc to another's pc picturebox except from sending the file first and load it localy Tag: Get Default Printer
  - 6
    - An attempt was made to access a socket in a way forbidden by its access permissions What version of windows are you running Tag: Get Default Printer
  - 7
    - Sound Dim zSystemSound As System.Media.SystemSound = Media.SystemSounds.Exclamation zSystemSound.Play() Dim zSoundPlayer As New Media.SoundPlayer("C:\ MySoundFile .wav ") zSoundPlayer.Play() Tag: Get Default Printer
  - 8
    - encrypting passwords in a database The best practice is not to store the password itself, but a hashcode of the password, this is basically a "one way" encryption, meaning you can't retrieve the password from the hashcode, but the same password will always produce the same hashcode. The string class's GetHashCode method should suffice. Tag: Get Default Printer
  - 9
    - Print Preview Error Hi, The error is stating that the object you are trying to use does not have a name. In you instance the object is "formImage". I am guessing you are programmatically creating the "formImage" object and whatever it contains. Since you didn't provide any of the coding on how the "formImage" object is instantiated I can't provide a direct coding resolution. At this moment I would suggest adding a line of code that names your "formImage" object. An example would be something like: formImage.Name = "myImage". Your complete coding may look something like this: Code Snippet Private Sub PrintDocument1_PrintPage( ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles myDocument.PrintPage formImage.Name = "Test" e.Graphics.DrawImage(formImage, 200, 300) End Sub This would work if you are declaring the "formImage" as an object that supports the "name" property. If you want a more clear response, please post the complete coding you are using to create the "formImage" and any other coding you are using to initialize the "myDocument.print" method. I hope the above example helps...if not then I am sure we can get it solved if further coding is posted. Thanks, James Tag: Get Default Printer
  - 10
    - Textbox Focus From Form Load The problem with the Load event is it is one event in a series of events currently in the queue. Calling a Focus method while processing the Load event means any subsequent Focus-changing events in the queue will simply overwrite it. The other problem is the Load event is one event in a series of events that occurs when a Form is created, loaded, and displayed. At the time of the load event not all of these events that will occur are in the queue yet. In the same fashion, those soon-to-be-created events will also overwrite your call to Focus. You can try using BeginInvoke to put it at the end of the queue, and with some events this will work. I don't particularly recall if Focus is one of those things that won't get overwritten in Load... In general, focus-changes should occur in an Activated event handler. Alternatively, I believe the same effect can be obtained by setting the forms ActiveControl property in the Load event handler. Tag: Get Default Printer
  - 11
    - What Language represents &H100& These are simply the values for each of member of the enumeration expressed as a hexidecimal (base 16) value, instead of the usual decimal (base 10 ) system we use in everyday life. Tag: Get Default Printer
  - 12
    - newbie call errors Hi, Please see the code comments below. Regards, S_DS ___________________________________ Public Class Form1 'Moved so the Button_Click Sub also "sees" these 'these two variables. Dim aatt As Integer Dim adef As Integer Sub monSet( ByVal arg) 'Do one set of DIM statements at the top of your SUB Dim lvl_ As Integer Dim aspd As Integer If arg = "rat" Then 'These two DIM'ed outside the SUB to make the variables 'GLOBAL to all the SUBroutines and Functions within the FORM. 'Dim aatt As Integer 'Dim adef As Integer aatt = 1 adef = 1 lvl_ = 1 aspd = 1 End If If arg = "thief" Then Dim aatt As Integer 'No need to DIM any variable twice within a Sub 'Do all the local declarations at the top. 'Dim adef As Integer aatt = 17 adef = 13 lvl_ = 15 aspd = 21 End If End Sub '... Private Sub Button4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click monSet( "thief" ) 'Use ToString to change a variable TYPE 'for use in a MessageBox. 'Try to use "&" to join strings and "+" for addition too, 'it makes it clearer that you are joining strings. MessageBox.Show(aatt.ToString & ", " & adef.ToString) End Sub End Class Tag: Get Default Printer
  - 13
    - REading emails from exchange 2000 Hi, Based on your post, you want to read emails from exchanger server 2000. Here is one good example. It Uses MAPI to login, list emails and select emails and display them. You can find a code snippet which outlines a little mechanism to read email using Outlook while at the same time. It avoids the security patch using Outlook Redemption component. For more information about this code example, visit here . Hope this helps. This response contains a reference to a third party World Wide Web site. Microsoft is providing this information as a convenience to you. Microsoft does not control these sites and has not tested any software or information found on these sites; therefore, Microsoft cannot make any representations regarding the quality, safety, or suitability of any software or information found there. There are inherent dangers in the use of any software found on the Internet, and Microsoft cautions you to make sure that you completely understand the risk before retrieving any software from the Internet. Tag: Get Default Printer
  - 14
    - Create Users to Windows 2003 Programatically (vb) George Waters, 1. Please use "net.exe" instead of "net" since it is file name. 2. Dim xUser as String = "Username" Dim xPass as String = "Password". 3. The path of net.exe in Windows 2003 is in C:\WINNT\System32. Mine is X64, so the path of mine is C:\WINNT\syswow64\. Please pay more attention to the exact path for the file. 4. Run ※net user / § at command line or check http://support.microsoft.com/kb/251394 for the document. 5. The more appropriate way to create a user account with VB.Net is to use ADSI http://msdn2.microsoft.com/En-US/library/aa746340.aspx Tag: Get Default Printer
  - 15
    - how do i populate a checklistbox from a database in MSSQL server? Can you post your code it will help find your problem... What type of control are you showing the results of the combobox selection Some steps to get you started. 1. First create the code that shows all the results. (This makes sure you have a good connection and the underlining code is good) 2. Create the combobox and make sure it has all the opptions (data) you want. 3. At that point deside if you want to filter the data at the data source or in your app. (If the data source is large always filter at the source) Tag: Get Default Printer
  - 16
    - Interface - Collection of Interfaces? Article on Interface: http://www.developer.com/lang/other/article.php/939411 other good VB.net sites: http://www.developerfusion.co.uk/vbnet/ http://www.vbdotnetheaven.com/ Tag: Get Default Printer

chrisanderson

In vb.net i want to get the name of the default printer. I have found the following c# code but dont understand c#. Can anyone help me out translating this to vb

Many thanks

DllImport("winspool.drv", CharSet=CharSet.Auto, SetLastError=true)]
public static extern bool GetDefaultPrinter(StringBuilder pszBuffer, ref int size);

StringBuilder dp = new StringBuilder(256);
int size = dp.Capacity;
if (GetDefaultPrinter(dp, ref size)) {
Console.WriteLine(String.Format("Printer: {0}, name length {1}", dp.ToString().Trim(), size));
} else {
int rc = GetLastError();
Console.WriteLine(String.Format("Failed. Size: {0}, error: {1:X}", size, rc));
}

Re: Get Default Printer

Richard_Wolf

No need to resort to API calls. The PrinterSettings object, when created, should be set to the default printer:

Public Shared Function DefaultPrinterName() As String
Dim oPS As New System.Drawing.Printing.PrinterSettings

Try
DefaultPrinterName = oPS.PrinterName
Catch ex As System.Exception
DefaultPrinterName = ""
Finally
oPS = Nothing
End Try
End Function

Re: Get Default Printer

chrisanderson

Richard,

Many thanks for your reply, and that works perfectly!

I thought this should be straight forward, but all my searches didnt find anything.

Thank you again

Chris