Order for help please

jimmy_pop86

I'm trying to configure an order form to print out correctly. There's a couple of things I am having issues with. 1. I need to make a user prompt when the form first loads to remind the user to enter their name and credit card number. 2. The format of the order itself in the listbox is all messed up it's supposed to look like this Customer: (name goes here) Acct. #: (account number here) Valentine Gift Order ID Item Name Quantity Price Total ================================================ AB-11 Ring 1 200.00 200.00 CD-32 Watch 2 50.00 100.00 EF-44 Chocolate 2 25.00 50.00 Total 350.00 Tax 7% 24.50 Order Total $374.50 Number of categories ordered: 3 Number of items ordered: 5 but I can't get to anything close to that. I have the form built I just have no idea how it get the info into the listbox. (for some reason the actual post isn't lining up, hopefully you get the idea...today is not my day) Thanks

3 Replies

Know the answer? Post it — somebody with the same question will find it here.

MythicalMe21y ago
If you format the string before putting it on the PrintDocument surface you'll be inserting spaces. That's bad because a space isn't the same width as a 'w'. That's why you're having trouble with the formatting. Instead, define a rectangle that describes where you want to put an individual field and then use DrawString to write it to the PrintDocument surface. For example dim gr as Graphics = e.Graphics dim printFont = Font("Arial", 12) dim fntHeight as Single = printFont.GetHeight(e.Graphics) dim prtRect as RectangleF dim line as string dim strFormat as new StringFormat prtRect.X = 0 prtRect.Y = 20 prtRect.Width = 200 ' Use whatever value you need. prtRect.Height = fntHeight gr.DrawString( _ Format(qty, "##0"), printFont, Brushes.Black, prtRect, strFormat)
jimmy_pop8621y ago
I'm trying to get the to come out right qty = CDbl(TxtQty.Text) price = CDbl(TxtPrice.Text) total = qty * price grandtotal = grandtotal + total lstOutput.Items.Add(String.Format(frmstr, item, itemname, qty, price, total)) lstOutput.Items.Add("The grand total plus tax is " & tax(grandtotal) + grandtotal) Dim price, qty, total, grandtotal As Double Dim item, itemname As String Dim frmstr As String = "{0, -10}{1, 10}{2, 15}{3, 15:n2}{4, 15:c2}" I don't know how to get what I have to look like what I want.
MythicalMe21y ago
The PrintDocument control is like actually drawing to the screen. Whatever you want to draw on the surface is what gets printed when the PrintDocument.Print method concludes. Your main tool is going to be the Graphics.DrawString method. It is one of the those methods that is overloaded 5 ways to Sunday. Basically the format is DrawString(string, font, [LOCATION], format). The example given doesn't correspond to anything specific, but will give you a general idea. [LOCATION] is any one of a number of references from (x,y) to rectanglef type (that should help you on the formatting). Another thing you can look into is the formatting. The StringFormat class is pretty versatile. If you're looking for tabbed format there is a SetTabStops method that can do the lining up for you. I personally found it less than adequate when you have strings and numbers which have differing alignment requirements.