473,322 Members | 1,501 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,322 software developers and data experts.

Printing from VB.NET - Frustrated, Code please!

I'll try again as I'm obvioulsy standing in the middle of the forest and
not seeing the trees ... I didn't think I was to old to learn new trick,
but this has just about convinced me otherwise. I just don't see how using
gdi to drop lines of text out to the printer ...

I'm converting a very old GWBASIC program - I now have it writing to a file
and I can print the file but that's not what I want to do (page breaks /
widows / orphans / etc). Would some kind soul give me the code I'd need in
my program to replace the following WriteLines with output to a printer - I
just can't see it (here's a sample of about 800 lines of spaghetti code):

PrintHeader(Me.cbPrintHeader.Checked)
myFile.WriteLine("")
L77: P = R - 0.3
L78: myFile.WriteLine("RADIUS TO OUTSIDE 1ST LANE LINE = " + Str(P) + "
(METERS)")
myFile.WriteLine("") : myFile.WriteLine(" ALL OTHER MEASURMENTS
HEREIN ARE IN METERS")
H = intL1Distance / 2 - 200
R1 = R
Z = F + (Q * H)
L88: myFile.WriteLine("") : myFile.WriteLine(" " + Str(Q) +
"TURN STAGGER") : myFile.WriteLine("")
If Q = 1 Then GoTo L210
If Q = 3 Then GoTo L210
L95: If Z > 0 Then GoTo L145
myFile.WriteLine(PrintRadius(intCounter, R, 1, Z))
GoTo L107
L106: myFile.WriteLine(PrintDegrees(intCounter, Int(Z), (Int(B)),
Int(G)))
L107: If M = 20 Then GoTo L110

My emails easy enough to decipher if you'd like to do it for fee - give me
an idea ....
Nov 21 '05 #1
1 1690
Al,
I'm not sure this is adaptable directly to a PrintDocument output as the
way PrintDocument OnPrintPage works it returns from that function setting
HasMorePages to true when there are more pages and false when done. The
exit from this function produces the required page eject/formfeed to the
printer.

You would probably do better using direct output to the printer or
intermediate files (as you have already tried) as the logic in this is all
tangled up in the output. The way I would do this as I'm used to doing an
intermediate output file would be to write an intermediate file and then
read and paginate that file for output as lines of text.

In my code I write the output as an XmlDocument first and then use that
to produce a paginated XmlDocument where every <page> element is a seperate
document page. This is written to disk for transmission offsite and also
printed using a specialized PrintDocument subclass that reads the XML
elements and renders them on the page. I could probably use some other form
of tagged output but XML is easier to read when debugging and DOM has the
tools necessary to check for null/missing nodes that may occur.

If you had just one page of output you could wrap the whole thing in an
OnPrintPage handler and just use DrawString followed by incrementing the y
position on the page for each WriteLine but since you say you have multiple
pages this wouldn't work.

If I was doing this I'd first do a logic diagram of the whole program
flow and then write new code to produce the same result. I've had to
convert some old Fortran code written like this using computed gotos, etc.
to Ada and that was really difficult when there wasn't any formatted output
being done.

Ron Allen
"al jones" <al**********@shotmail.com> wrote in message
news:1g******************************@40tude.net.. .
I'll try again as I'm obvioulsy standing in the middle of the forest and
not seeing the trees ... I didn't think I was to old to learn new trick,
but this has just about convinced me otherwise. I just don't see how
using
gdi to drop lines of text out to the printer ...

I'm converting a very old GWBASIC program - I now have it writing to a
file
and I can print the file but that's not what I want to do (page breaks /
widows / orphans / etc). Would some kind soul give me the code I'd need
in
my program to replace the following WriteLines with output to a printer -
I
just can't see it (here's a sample of about 800 lines of spaghetti code):

PrintHeader(Me.cbPrintHeader.Checked)
myFile.WriteLine("")
L77: P = R - 0.3
L78: myFile.WriteLine("RADIUS TO OUTSIDE 1ST LANE LINE = " + Str(P) + "
(METERS)")
myFile.WriteLine("") : myFile.WriteLine(" ALL OTHER MEASURMENTS
HEREIN ARE IN METERS")
H = intL1Distance / 2 - 200
R1 = R
Z = F + (Q * H)
L88: myFile.WriteLine("") : myFile.WriteLine(" " + Str(Q) +
"TURN STAGGER") : myFile.WriteLine("")
If Q = 1 Then GoTo L210
If Q = 3 Then GoTo L210
L95: If Z > 0 Then GoTo L145
myFile.WriteLine(PrintRadius(intCounter, R, 1, Z))
GoTo L107
L106: myFile.WriteLine(PrintDegrees(intCounter, Int(Z), (Int(B)),
Int(G)))
L107: If M = 20 Then GoTo L110

My emails easy enough to decipher if you'd like to do it for fee - give me
an idea ....

Nov 21 '05 #2

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

9
by: Jody Gelowitz | last post by:
I am trying to find the definition of "Safe Printing" and cannot find out exactly what this entitles. The reason is that I am trying to print contents from a single textbox to no avail using the...
4
by: Arif | last post by:
I C# code prints very slow as compared to a third party barcode printing software. That software prints approximately 10 labels in 2 seconds while my C# code prints 10 labels in 5 to 6 seconds. And...
10
by: Don Wash | last post by:
Hi! I'm pretty frustrated learning ASP.NET. I'm learning ASP.NET by downloading samples from various ASP.NET websites and none of the samples worked so far. The SAME error was shown whenever I...
4
by: al jones | last post by:
I'm converting a very old GWBASIC program - I now have it writing to a file and I can print the file but that's not what I want to do (page breaks / widows / orphans / etc). Would some kind soul...
3
by: D Witherspoon | last post by:
No matter what I do the default paper size is always either A3 or 11 by 8.5 .. Here is the code. Dim dlg As DialogResult pd.DocumentName = "Weld Image" Dim pkPaperSize As New...
0
by: Nigel Norman | last post by:
Although I have written some perl ,I have obviously missed something. I have created a database for my local tennis club, which can be updated etc etc. I thought it would be a good idea to for...
8
by: Neo Geshel | last post by:
Greetings. BACKGROUND: My sites are pure XHTML 1.1 with CSS 2.1 for markup. My pages are delivered as application/xhtml+xml for all non-MS web clients, and as text/xml for all MS web...
18
by: Brett | last post by:
I have an ASP.NET page that displays work orders in a GridView. In that GridView is a checkbox column. When the user clicks a "Print" button, I create a report, using the .NET Framework printing...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.