Printing Problem!

[HFlash]

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.

[Bruce Fox]

Welcome to the Forum

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

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

[HFlash]

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.

[Joacim Andersson]

Instead of double posting, continue on your previous thread.

[Hack]

Instead of double posting, continue on your previous thread.

In the future, please follow this advice.

Duplicate threads merged.

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

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