Printing Problem!

Hello,
I want to print Form5 in my project but printing operation is slow!
I used the following code:
.
.
.

Form5.PrintForm
.
.
.

Please help me.
Thank's.
:)

Welcome to the Forum :wave:

How about printing the Components values of that Form, opposed to the Form (face) itself?

Ie printing off all the TextBox's.Text etc.

Hi.
I have in my Project a MSFlexGride ,two Labels(in Form5) and want to print Form5.
Printing operation is slow and MSFlexGride's Cells in my print are black!
I used the following code in a CommandButton :
.
.
.
Form5.PrintForm
.
.
.
Do i can print Form5 in my project by PrintForm method?
Thank you.

Instead of double posting, continue on your previous thread.

Quote:

---

Originally Posted by Joacim Andersson

Instead of double posting, continue on your previous thread.

---

In the future, please follow this advice.

Duplicate threads merged.

Quote:

---

Originally Posted by HFlash

I have in my Project a MSFlexGride ,two Labels(in Form5) and want to print Form5.
Printing operation is slow and MSFlexGride's Cells in my print are black!
I used the following code in a CommandButton :
.
.
.
Form5.PrintForm
.
.
.
Do i can print Form5 in my project by PrintForm method?

---

PrintForm has issues with a number of controls with the Flexgrid being one of them. Try this

VB Code:

Option Explicit
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Const VK_MENU As Byte = &H12
Private Const VK_SNAPSHOT As Byte = &H2C
Private Const KEYEVENTF_KEYUP = &H2
 
Private Sub cmdPrintForm_Click()
Dim lWidth As Long, lHeight As Long
    Clipboard.Clear
    Call keybd_event(VK_MENU, 0, 0, 0)
    Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
    DoEvents
    Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)
    Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)
    Printer.Print
    If Width > Printer.ScaleWidth Then
        lWidth = Printer.ScaleWidth
        lHeight = (Printer.ScaleWidth / Width) * Height
    Else
        lWidth = Width
        lHeight = Height
    End If
    Printer.PaintPicture Clipboard.GetData, 0, 0, lWidth, lHeight
    Printer.EndDoc
End Sub