|
-
Sep 10th, 2006, 11:42 PM
#1
Thread Starter
Lively Member
Print help
Hi All
I'm new to Vb.net. I've been working with vb6.0 for years now. I'm trying to look at VB2005. I have been using the printer.print but i think i will have to print to a file then print that txt file. So with that said i've been looking for a good way to print but have had no luck. My old code looks like this.
I was hoping someone could help.
Reston
VB CODE +++++++++++++++++++++++++++++++++++++++++++++
Private Sub cmdPrint_Click()
Ace = 69
If Chk1 = 0 Then MousePointer = 11
If Chk1 = 0 Then Printer.Font.Size = 10
If Chk1 = 0 Then Printer.Print ""
If Chk1 = 0 Then Printer.Print ""
If OptConvex.Value = True Then XX = " CONVEX"
If OptConcave.Value = True Then XX = " CONCAVE"
'Printer.Print ""
If Chk1 = 0 Then Printer.Print ""
If Chk1 = 0 Then Printer.Print ""
If Chk1 = 0 Then Printer.Print Tab(10); "OC"
If Chk1 = 0 Then Printer.Print Tab(10); "Job: "; Text1.Text
If Chk1 = 0 Then Printer.Print Tab(10); Format(Now, "m/d/yyyy")
If Chk1 = 0 Then Printer.Print Tab(10); Format(Now, "hh:mm AM/PM")
If Chk1 = 0 Then Printer.Print "___________________________________________________"
If Chk1 = 0 Then Printer.Print ""
If Chk1 = 0 Then Printer.Print Tab(10); "TRC"; Tab(52); txtROC & "''" + XX
If Chk1 = 0 Then Printer.Print ""
If Chk1 = 0 Then Printer.Print Tab(10); "Sr"; Tab(52); txtSf & "''"
If Chk1 = 0 Then Printer.Print ""If Chk1 = 0 Then Printer.Print " "
'Printer.Print Tab(10); "MLBT"; Tab(52); Val(lblTable)
'Printer.Print " "
'Printer.Print Tab(10); ""; Tab(52); Val(lblTable)
If Chk1 = 0 Then Printer.Print " "
If Chk1 = 0 Then Printer.Print " "
If Chk1 = 0 Then Printer.Print "____________________________________________"
If Chk1 = 0 Then Printer.EndDoc
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|