|
Is this VB6?
A print document, is exactly that, a single 'job' with multiple pages as required. I do not see how or why you would want to split this into multiple tasks.
If you do, you would want to create printdocuments for each task e.g. for routing to different printers with different letterheads etc.
Dave
Find Me On: Web| Facebook| Twitter| LinkedIn
CPRepWatcher now available as Packaged Chrome Extension, visit my articles for link.
|
|
|
|
|
It's not VB6, it's vb.net2010 (no printpreview in vb6)
I want to split it becaurse several 100 pages at ones is a long time to wait for some collegaes. ( we need to login into the printer and the jobs wait ontil we do) So if I split it into 8 times 100 instead of 800 al at ones I can wait and let someone pass trhu
So on this problem I need to rewrite some code
Jan
|
|
|
|
|
Split your data into 8 groups and pass them to the report one at a time... eg: Records 1 to 100, then 101 to 200 etc...
|
|
|
|
|
That was also my Idee if there was no other solution. I will look into this next week.this is why I asked "can I see where the routine prints to. preview or printer."
|
|
|
|
|
VB.Net and MS Access Databases.
I have a form containing a database that reference students SchoolA.
I have another database SchoolB with the exact same tables and fields.
On the student form using a combobox, I wish to change from one database to another using the same controls. I do not want to code a second form to hold the other database.
Is this possible?
Thanking you in anticipation.
... timark2000
|
|
|
|
|
Yes.
If you are using a BindingSource and all your controls are bound to it.
Have two DataSets one for StudentA and one for StudentB.
Then when you want to change simply:
myStudentBindingSource.DataSource = studentADataSet
OR
myStudentBindingSource.DataSource = studentBDataSet
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Thanks Henry that makes sense.
|
|
|
|
|
Here's an oddball question and somewhat hard to describe. I'd like to know how to recreate the lack of cell formatting that occurs when you open a new sheet. I notice that Excel applies a light-gray grid that isn't (apparently) part of the properties for the cells. If I change the border properties to, say, a rectangle around a cell and then want to remove that, I need to know how to reset the border property to reflect the pristine, no-property look of a brand-new sheet. If I reset the cells to the default property, say, LineStyle=xlNone, I get a range of pure white. If I specify xlThin, then I get a black grid, also not the pristine, "new" look of a new sheet. Obviously, I'm missing something here.
|
|
|
|
|
Have you tried the ClearFormats method? (Don't know if this exists in 2003 (i only have 2007))
e.g.;
Dim x As Worksheet
Set x = ThisWorkbook.ActiveSheet
x.Cells.Range("A1:F10").ClearFormats
Dave
Find Me On: Web| Facebook| Twitter| LinkedIn
CPRepWatcher now available as Packaged Chrome Extension, visit my articles for link.
|
|
|
|
|
I am new to vb.net and am having a problem getting data into a database
On a form I have a main database with dataset/bindingsouce/dataview with all of the students appearing correctly
Now ive created a new dataset/bindingsource/dataview which needs to be populated with other classtime information once a student is selected from the main database. Currently the code directs to the GetClassTime once a student is selected from the bindingsource.
HERE IS MY CODE
private sub GetClassTime()
Dim sQuery As String = ""
sQuery = "SELECT [Description],[Lesson], [Location], [StudentID], [CourseCode] From [ClassTime] Where ((([StudentID]) = " & Val(txtStudentID.Text) & ")) And (([CourseCode]) = " & Val(txtCourseCode.Text) & ") ORDER BY [Description];"
bindingsource_Classtime.DataSource = sQuery
Me.DataGridView_Classroom.DataSource = Me.BindingSource_Classtime
end sub
I dont get any errors but the datagridview_classroom is empty.
Can anybody please help?
Thanks in anticipation.
timark2000
|
|
|
|
|
You will need to execute your query. One way to do this is to use an SqlCommand instance. MSDN Page[^]
Then you can use the reader to load the data into a dataset. Example[^].
The resulting DataSet can then be used by your program like this.
bindingsource_Classtime.DataSource = myNewDataSet
For your future reference You should enclose your code between <pre lang="vb"> Your code goes here </pre>.
It makes it much easier to read.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Thanks Henry...much appreciated
You have replied bindingsource_classtime.datasource = mynewdataset
I have no clue on how to apply mynewdataset
Ive researched without success.
Hoping you can help
|
|
|
|
|
myNewDataSet is a made up name intended to represent the DataSet that you would have created in the step before if you followed the suggestions I made.
If you did follow the examples then the line would be
bindingsource_classtime.datasource = whateverYouCalledTheDataSetInTheStepBefore
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
why do you insist on providing only the last statement of the solution?
|
|
|
|
|
My Bad! 
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
It's been a while since I've used VB and I need help with understanding the truePart in the second line.
Dim asciiBytes As Byte() = Encoding.ASCII.GetBytes("SomeAsciiData")
Dim nextchar As Integer = IIf(asciiBytes.Length > (i + 1), asciiBytes.Length > (i + 1), -1)
How does asciiBytes.Length > (i + 1) return an integer?
|
|
|
|
|
In VB.NET an expression like
asciiBytes.Length > (i + 1)
will return a Boolean value - in this case True as it is identical to the Expression part of the IIf method. Internally, a Boolean value is stored as an integer (False -> 0, True -> -1), so the conversion to an integer is straightforward.
However, I think there' a bug in your code: it should probably read
Dim nextchar As Integer = IIf(asciiBytes.Length > (i + 1), asciiBytes(i + 1), -1)
in other words it returns the ASCII value (0 - 255) of the next character in the array if the Expression is True and -1 if it is False.
|
|
|
|
|
Thanks Geoff
I didn't write the code (but that line is working) - maybe the compiler converts the boolean to a 0 or 1 in the background.
I'll test it later
|
|
|
|
|
Correctly, true equals -1, and 0 equals to false. Perhaps it would be easier to just initialize the variable to -1?
I are Troll 
|
|
|
|
|
Absolutely right. 
(I incorrectly assumed that true would be 1 and not -1)
|
|
|
|
|
Dim query As ObjectSet(Of customer) = context.customers
Dim queryResult As ObjectResult(Of customer) = query.Execute(MergeOption.AppendOnly)
how do i get ddlcust.selectedvalue= queryResult.customerid
|
|
|
|
|
i am actually working on my final year project which is a pc-based fruit sorting system which involves computer vision.i am trying to use my program in vb to do all tasks involved.can you help me please?
|
|
|
|
|
Please understand that posting the same or similar question so often is considered spam.
"People demand freedom of speech to make up for the freedom of thought which they avoid."
|
|
|
|
|
Typically the folks here will not do your homework for you. Everyone here is extremely helpful providing you do your own research first and when you get stuck, then post your question along with a detailed explanation and you will get a prompt response.
My suggestion is to do some research first (Google it), then come back when you get stuck.
Good luck.
|
|
|
|
|
Wait, you're serious? Wow, I thought the previous post was a joke... Who in their right mind would try to do all of that in VB6?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
