Print, MSHFlexgrid.

Hi all,

I know that to print a form, we use :

VB Code:

form1.printform

But sumtimes if there are no printers connected, there will error on the program. Is that normal or there is a way to solve it? I tried printing once and the paper shows alot of empty space. Can we print the form and it fits the whole page of the paper?

Another thing is that during runtime, my mshflexgrid only hilights 2 columns instead of one row. I tried to change the properties but to no avail.

Quote:

---

Originally Posted by yanty

But sumtimes if there are no printers connected, there will error on the program.

---

Error trap the printform routine.

How do we do dat?

Use an error trap like this

VB Code:

Option Explicit
 
Private Sub PrintForm()
  On Error GoTo Print_Error
    Form1.PrintForm
  Exit Sub
Print_Error:
  On Error GoTo 0
  MsgBox "Printer not available or is Offline"
End Sub

Quote:

---

Originally Posted by yanty

...Another thing is that during runtime, my mshflexgrid only hilights 2 columns instead of one row....

---

Did you mean to say "one column"?

2 columns as shown in my attached image. only after i click on the row, the whole row will be highlighted.

Quote:

---

Originally Posted by dglienna

Use an error trap like this

VB Code:

Option Explicit
 
Private Sub PrintForm()
  On Error GoTo Print_Error
    Form1.PrintForm
  Exit Sub
Print_Error:
  On Error GoTo 0
  MsgBox "Printer not available or is Offline"
End Sub

---

Isit we put this code under the command button we click for printing or do we put a call function PrintForm under the the command button?

Call the function from the print button, but put the error trap in the function itself, where you open the file. :)

VB Code:

Private Sub cmdPrint_Click()
 
Call PrintForm
 
End Sub
 
Private Sub PrintForm()
  On Error GoTo Print_Error
    Form1.PrintForm
  Exit Sub
Print_Error:
  On Error GoTo 0
  MsgBox "Printer not available or is Offline"
End Sub

I tried this but it states member already exist in object module.

Which line generates the error?

private sub printform

PrintForm is a reserved word in VB, so you can't call your sub that.
If you have this code in the form itself, you can just call

VB Code:

Form1.PrintForm

like this:

VB Code:

PrintForm

Call your sub SendToPrinter or something like that, and change the call statement.

i know its kinda out of topic but how about using a data report to print your data rather than directly printing the form. it would be a lot more easier than printing a form

this is only a suggestion okay

data report? how is that like?

when in preview mode, it looks like a piece of bond paper with the data that you place on it or on your database table.

Quote:

---

Originally Posted by yanty

data report? how is that like?

---

If you are interested in the Data Report, take a look at these.

Create Reports Using The Data Report
Data Report Tutorial
Data Report Demo

FYI sgrya1, the last post before yours was in January.