Visual Basic

Printing support on hp laserjet 1010 in vb6

1-Mar-08 0:57

Hi All

I am working on VB6 with CR8, in my application i have a save button that will save the data into database and then print a invoice. the data entered is works perfectly the problem is in the report.

When the report prints it always print the half content means it should print 10 records but it always prints the 6 or 7 records. In my query in uses the grouping but the data belongs to the first group will prints only.

Another problem is if i place a msgbox before invoice genration then it prints the invoice correctly

so what would the solution

plz reply

With Regards

Yogesh Agarwal

r_mohd29-Feb-08 23:52

Re: Printing support on hp laserjet 1010 in vb6

29-Feb-08 23:52

hi all,

recently i have developed an application in vb6 (sp6).

when i run this application all is ok but when i want to take print out of given subject it gives me some problems

when i take printing on domatrix printer it gives me ok result, i mean to there is no problem with such like proble on any other pc.

but, when i same take on laserjet printer it gives varied result, mean on some pc it suppoted and on some pc i could not able take the print out.

kindly help me.

thanks in advance.

rmshah
Developer

yogesh_kumar_agarwal29-Feb-08 23:57

Re: Printing support on hp laserjet 1010 in vb6

29-Feb-08 23:57

what code you are using to take a print out and what port you are using to connect your print to your machine

Yogesh Agarwal

r_mohd1-Mar-08 18:38

how can i handle a datagridview in vb.net

1-Mar-08 18:38

thanks, find the coding which i used to take printout

Private Sub DataRptRecord()
'On Error Resume Next
Dim Var1, Var2 As String
If A_DataEnvironment.rsCmdPrnt.State Then A_DataEnvironment.rsCmdPrnt.Close
A_DataEnvironment.rsCmdPrnt.Open ("SELECT *From adrsmstr",conn)
DataRptAddress.Sections(2).Controls("lbl1").Caption = Trim(TxtCntact1.Text) ' AdrsBook_DataEnvironment.rsCmdAdrsPrnt.Fields(1)
DataRptAddress.Show

' the following section of codes deals with only dos base printings.

Private Sub DosBasePrinting()
On Error Resume Next
Dim A1, A2, A3, A4, A5, A6, A7 As String
Dim z As Integer
Dim i As Integer

If MarkAtt = True Then
Call AskForSave
If a.State Then a.Close
a.Open ("SELECT * From adrsmstr"), Conn, adOpenStatic, adLockBatchOptimistic

If a.EOF = False Then
a.MoveFirst
z = PrntNos
Open App.Path & "\A.TXT" For Output As #1
A1 = a.Fields(1)
A2 = a.Fields(0)
A3 = a.Fields(2)
A4 = a.Fields(3)
A5 = a.Fields(4)
A6 = a.Fields(6)
A7 = a.Fields(5)

For i = 1 To z
Print #1, " " & Trim(TxtCntact.Caption)
Print #1, " " & A2
Print #1, " " & UCase(Trim(A3)) & "," & UCase(Trim(A4))
Print #1, " " & A5
Print #1, " " & A6
Print #1, " " & A7
Print #1, " "
Print #1, " "
Print #1, " "
Next
Close #1
End If
X = Shell(App.Path & "\print.bat", vbHide)

rmshah
Developer

Table in richtextbox

helelark12329-Feb-08 23:23

helelark123

29-Feb-08 23:23

Hello,

Is somenone know a way how to add a table in richtextbox in vb.net 2005 without rtf property usage?

Thanks for help

Shay Noy

Re: Table in richtextbox

Xmen Real 1-Mar-08 2:37

Xmen Real

1-Mar-08 2:37

just gooogle
http://www.google.com/search?client=opera&rls=en&q=add+a+table+in+richtextbox&sourceid=opera&ie=utf-8&oe=utf-8[^]

TVMU^P[[IGIOQHG^JSH`A#@`RFJ\c^JPL>;"[,*/|+&WLEZGc`AFXc!L
%^]*IRXD#@GKCQ`R\^SF_WcHbORY87??6?N8?BcRAV\Z^&SU~%CSWQ@#2
W_AD`EPABIKRDFVS)EVLQK)JKSQXUFYK[M`UKs*$GwU#(QDXBER@CBN%
Rs0~53%eYrd8mt^7Z6]iTF+(EWfJ9zaK-i?TV.C\y<p?jxsg-b$f4ia>
--------------------------------------------------------
128 bit encrypted signature, crack if you can

r_mohd29-Feb-08 21:09

29-Feb-08 21:09

hi all,

i want to insert values into milti cells with multi rows in vb.net.
i am new to datagridview.
kindly help me.

thanks

rmshah
Developer

Christian Graus29-Feb-08 21:45

Christian Graus

29-Feb-08 21:45

Sounds like you need to buy a book and work through it. I really can't work out the specifics of your problem but it sounds like you're asking for something that is easily researched online, or found in books.

yogesh_kumar_agarwal29-Feb-08 21:49

29-Feb-08 21:49

use teh following code

<br />
<br />
 DataGridView1.Rows(x).Cells(y).Value = "Hello"<br />
<br />

Here use the loop to control x and y
and use DataGridView1.Rows.Add to add new row

Yogesh Agarwal

r_mohd29-Feb-08 22:36

29-Feb-08 22:36

thanks for your support.

further help me how to navigate between colums and how can i handle the events.

thanks again

rmshah
Developer

yogesh_kumar_agarwal29-Feb-08 22:51

29-Feb-08 22:51

Hi

You could use the code :-

<br />
dim i as integer<br />
<br />
for i=0 to DataGridView1.ColumnCount-1<br />
<br />
 <the code=""><br />
<br />
next<br />
<br />
</the>

Now i is your variable to navigate on columns, to handle the events most of the event handles has the colindex and rowindex property to determines the column and row you use like if i talk about the celcontentclick event the default event for datagridview then: -

<br />
<br />
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick<br />
<br />
<br />
if e.ColumnIndex = 0 Then<br />
<br />
<some code=""><br />
<br />
End If<br />
<br />
<br />
<br />
End Sub<br />
<br />
</some>

Yogesh Agarwal

Manage MDI childs

highjo29-Feb-08 12:27

highjo

29-Feb-08 12:27

hello!
i've created a small mdi sofware and.to open a child form a user should click on the menu item corresponding.Even if the same form is already openned when i click on the same menu item it opens again the ssame form which is not logical.How can i prevent the form to be openned more than once.thanks

eager to learn

J$29-Feb-08 13:16

29-Feb-08 13:16

I haven't work in VB for a while, so I apologize if my syntax is off. What you should do is something along the lines of:

<br />
Dim myForm as New Form1()<br />
<br />
myForm.Show()<br />

yogesh_kumar_agarwal29-Feb-08 17:21

29-Feb-08 17:21

Hi J$

Your code do the same thing, and the problem remains same do this

<formname>.show

did not create the new object for the form else ti will display the form again and again

With Regards

Yogesh Agarwal

I have a similar reply here.[^]

darkelv29-Feb-08 17:59

darkelv

29-Feb-08 17:59

Sachin Gokhale2-Mar-08 18:48

Sachin Gokhale

2-Mar-08 18:48

Create a object of the form (probably in a module)-
For e.g
Dim objfrm1 as Form1

Now, on click event of the context menu (or button) write the following code -

if isnothing(objfrm1) then
objfrm1 = new form1
objfrm1.MdiParent = me
objfrm1.show()
else
objfrm1.focus()
end if

Also, do not forget to set the obj to nothing on the form closing event.
I mean, on CLOSING event of form1 write the followng code.
objfrm1 = nothing

Worring about losing keeps me WINNING>>..

highjo11-Mar-08 5:58

highjo

11-Mar-08 5:58

hi i've tried the suggestoin of Sachin Gokhale and he's right.I found it so easy and i was wondering why i couldn't find it myself.Thanks man Big Grin | :-D

eager to learn

Anoop Brijmohun2-Mar-08 23:13

Anoop Brijmohun

2-Mar-08 23:13

Hi
try this

dim frm as form1
frm.showdialogue(me)

this wont let the user work with anything other form, until this form closes!

hope this helps...