msflexgrid

[ashishkhawale]

how to print msflexgrid data
my pro code is as follows & print code dosent work. pls guide me

Option Explicit

Private Sub add_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)

With Data1.Recordset
.AddNew
!Item = Combo1
!kg = Text1
!Rate = Text2
!total = Text3
.Update
End With
Data1.Refresh


End Sub

Private Sub remove_Click()
With Data1.Recordset
.Move (MSFlexGrid1.Row - 1) ' we minus one because row zero is the header row
.Delete
End With
Data1.Refresh

End Sub

Private Sub print_Click()
Printer.Font = "mg shree"
Printer.FontSize = 16
Dim i As Integer
Dim j As Integer

For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Col - 1
Printer.Print MSFlexGrid1.TextMatrix(i, j);
Next j
Printer.Print ""
Next i
Printer.EndDoc




End Sub

Private Sub Form_Load()
Combo1.AddItem "cVkvs"
Combo1.AddItem "dkans"
Combo1.AddItem "[kMhlk[kj"
Combo1.AddItem "rkanwG"
Combo1.AddItem "xgw"
Combo1.AddItem "okVk.ks"
Combo1.AddItem "p.ks"
End Sub

[Hack]

Please do not bump threads. Here are some of the reasons:

• You are expecting people with the right knowledge for your problem to be online 24/7 (and have time to answer it as soon as they see it), which is not the case, especially as we are all based in different time zones. People will read & reply when they get the chance.
  
• As you haven't posted any extra info at all (such as "I've tried the following code ... but it didn't help, it gave this error message instead: ..."), it heavily implies that you aren't trying to find a solution yourself - so it seems like you expect other people to do it all for you.
  
• If somebody has already replied to (or subscribed to) the thread, they will get an email notification - and find that there is nothing new to see since the previous post (assuming they visited the forums since the previous post - otherwise they will just see that you are impatient).

Now, what does this mean? "my pro code is as follows & print code dosent work. " Doesn't work how? Do you get errors? If so, what are they?