|
Protected Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim linesPerPage As Single = 0
Dim yPosition As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = ev.MarginBounds.Left
Dim topMargin As Single = ev.MarginBounds.Top
Dim line As String = Nothing
Dim printFont As Font = Me.ListView1.Font
Dim myBrush As New SolidBrush(Color.Black)
' Work out the number of lines per page, using the MarginBounds.
linesPerPage = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)
' Iterate over the string using the StringReader, printing each line.
line = myReader.ReadLine()
While count < linesPerPage And (Nothing <> line)
' calculate the next line position based on
' the height of the font according to the printing device
yPosition = (topMargin + (count * printFont.GetHeight(ev.Graphics)))
' draw the next line in the rich edit control
ev.Graphics.DrawString(line, printFont, myBrush, leftMargin, yPosition, New StringFormat())
count += 1
line = myReader.ReadLine()
End While
' If there are more lines, print another page.
If Not (line Is Nothing) Then
ev.HasMorePages = True
Else
ev.HasMorePages = False
End If
myBrush.Dispose()
End Sub 'ThePrintDocument_PrintPage
Private Sub PrintPreviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewToolStripMenuItem.Click
Try
Dim strText As String = Me.ListView1.Text
myReader = New StringReader(strText)
Dim printPreviewDialog1 As New PrintPreviewDialog()
printPreviewDialog1.Document = Me.PrintDocument1
printPreviewDialog1.FormBorderStyle = FormBorderStyle.Fixed3D
printPreviewDialog1.ShowDialog()
Catch exp As Exception
System.Console.WriteLine(exp.Message.ToString())
End Try
End Sub
Please try to modify this because we have the same problem.this can print and preview in richtextbox only
|
|
|
|
|
Hi,
How can we connect as400 database to vb6.0 ?
KhanR
|
|
|
|
|
Use ODBC to connect. Here's a Google search[^] to get you started.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once 
|
|
|
|
|
How can i on a Form open like a browser (Explorer or so) and choose an image and save it on a form??. Like an employee photo on an employee_record.
cld
|
|
|
|
|
You're question is worded that clearly, but I think you're looking for the openFileDialog[^].
Other than that, I have no idea what you mean by "store an image on a form".
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 12:24 Monday 24th April, 2006
|
|
|
|
|
Hi ,
i think she meant like MSN isn't it ??
in MSN the Pic saved in the form even if you delete the pic from your computer
if you meant that actualy i have no idea if you get something please tell me but if you meant that you want just to show the pictures of the employees that you have already their pictures on your computer & you have the root in the data base i can help you just tell me & i will send you the code cuz i just don't mind it now
see ya
try to be good if you can't be the best
|
|
|
|
|
There is no "storing" of any image on a form. The closest you can come to that definition is seting the BackgroundImage property to the requested image. but I serisouly doubt that's what is required.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hello i have set of tables in Access Database.
I need to upload the data from access to SQL. I have to do so by considering the codes
that exists in the sql and based on the primary key values i have to change details in the access database and then upload.
what i like to do is
get all tables in the access Database into adapters.
and then update the values in the adapters ie primary key based on what i got in sql.
after changing the values in adapters i need to insert those values into sql server.
Need help in doing this with code example.
Thanks in advance
Help in need is the help indeed
|
|
|
|
|
Who can share a software that about student manegement System?
All your apropriate help will be welcome and thank, i hope to get your help to reach my goal of begining with the programing.
your faithfully,
Don't try it, just do it!
*Archibald*rever dragon!
|
|
|
|
|
|
Hi,
How can I help you? will help you if I can
The CMS system included the following module which we developed.
1. All the basic setup including subject, grade, lecturer class, etc
2. Prospect
3. Registration for student, programme, subject and class.
4. Counseling, passport, visa
5. Family history
6. Attendance
7. Billing (Auto & Manual)
8. Payment
9. Fee wavier
10. Dashboard
11. MDS Points System
12. Staff
13. Time
14. Security
15. E-Learning
16. Survey
Etc it’s a huge system.
raj
|
|
|
|
|
hi,
i want to create query at runtime in MS ACCESS.
how can i do this
vipin paliwal
|
|
|
|
|
In the real world, you want to try to minimize doing this as much as possible.
But, all you really need to supply that is dynamically generated is the SQL query statement. Something like:
Dim mySQL As String = "SELECT field1, field2, field3 FROM myTable WHERE field1=" & something
.
. ' The rest of your OleDb database connection and command creation goes here...
.
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 12:20 Monday 24th April, 2006
|
|
|
|
|
I want to use RichTextBox Control to open a "file.doc" but i can't do this. Somebody help me please?
I use this code:
Me.RichTextBox1.LoadFile("file.doc")
and try with some StreamType but all the Format in "file.doc" not appear as i want.
I read some Articles about this but they use "Com" and i don't know how what to do. Thanks for your help.
Hanh Aeriscute
|
|
|
|
|
Hanh Aeriscute wrote: I want to use RichTextBox Control to open a "file.doc" but i can't do this
You right! You can't do this. The RichTextBox doesn't understand the format of a .DOC file. It'll open Word documents saved in RTF (Rich Text Format). But even then, not everything that Word supports in RTF will be supported by the RichTextBox control.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
hello sir or madam.
i'm happy to joint with CodeProject site, i'm just a begining with program VB6.0 and i would like know more for lession that can help me to use VB6.0 to practice with electronic project(ex: control by serial port and parallele of PC).
All your apropriate help will be welcome and thank, i hope to get your help to reach my goal of begining with the programing.
your faithfully,
|
|
|
|
|
Drop VB 6.0 and move to Visual Basic.NET
--------------------------------------------------------
My development blog
Q:What does the derived class in C# tell to it's parent?
A:All your base are belong to us!
|
|
|
|
|
VB is dying quickly. SUpport for it on the 'Net is disappearing by the day as everyone focuses on VB.NET and the .NET Framework.
Also, if you're just starting out programming, controlling a gizmo over a serial port or parallel port is WAY over your head considering that VB6 doesn't have any control over the hardware needed to do this.
You can try to look at http://www.logix4u.net[^], but it's not for beginners...
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
how to rollback the transaction if network fails
try
ex:
StartTrans()
doing process
.
.
.
.
DB get locked can't do anything how to release the lock if network fails here?
.
.
.
commit trans()
catch e exception
rollback
end try
krish
|
|
|
|
|
if exception will be thrown then the rollback inside the catch statment will be executed.
--------------------------------------------------------
My development blog
Q:What does the derived class in C# tell to it's parent?
A:All your base are belong to us!
|
|
|
|
|
yes you'r right.
but the rollback wont work if the network fails even exception throws, coz dont have database server connection.
|
|
|
|
|
Rigth, that is a problem...
I have never faced this situation so I really don't know how to solve this. Maybe somebody else will be able to help you.
--------------------------------------------------------
My development blog
Q:What does the derived class in C# tell to it's parent?
A:All your base are belong to us!
|
|
|
|
|
My suggestion is to run that part of the db update code as a stored procedure which is called from your program. Place the Begin Transaction ... Commit ... Rollback etc as required in that stored procedure.
That way it is SQL Server's responsibility for the transaction and it doesn't matter if you lose the network connection.
You may also like to investigate the command timeout parameters on your server and/or on your db connection object.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once
|
|
|
|
|
Thank you so much Steve
for your kind advise. i will try this method...
|
|
|
|
|
When i click the datagrid i want to list the fields of the selected row in the corresponding textbox,for this wat code i shud write
with regards
rahul
let the noble thought come from every side-Rig Veda
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
