Need solution - Printing taskbar unnecessarily

[Saket]

I am printing the report created & displayed in picturebox. Picturebox contents few labels & listview. The form & picturebox is more in height than my screen resolution. Whenever i am printing using following code, it print the report perfectly but print system taskbar too.

Any solution.

Option Explicit
 
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
                ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _
                ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _
                ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020
 
 
Private Sub PrintPictureBox(Pic As PictureBox)
Dim picTemp As PictureBox
 
    Set picTemp = Controls.Add("VB.PictureBox", "picTemp")
    
    With picTemp
        .AutoRedraw = True
        .BorderStyle = vbBSNone
        .Width = Pic.ScaleWidth
        .Height = Pic.ScaleHeight
        .Left = Me.Width
        .Visible = True
    End With
 
    BitBlt picTemp.hDC, 0, 0, Pic.Width, Pic.Height, Pic.hDC, 0, 0, SRCCOPY
    
    picTemp.Picture = picTemp.Image
    
    Printer.Print
    Printer.PaintPicture picTemp.Image, 0, 0
    Printer.EndDoc
    
    Set picTemp = Nothing
End Sub
 
 
 
 
Private Sub Picture1_Click()
PrintPictureBox Picture1
End Sub
 
Private Sub Picture1_DblClick()
Unload Me
End Sub

Thanking in anticipation.


Regards.

[leinad31]

I'm not sure if the X-Y coordinates are the same, the sysinfo control can give you the workareaheight (less taskbar).

[Saket]

Originally posted by leinad31
I'm not sure if the X-Y coordinates are the same, the sysinfo control can give you the workareaheight (less taskbar).

I can get the exact xy co-ordinates by checking the objects scaleheight & scalewidth properties.

I tried to save the image of the picturebox to clipboard & tried to print but same result.

I tried to save the image of the picturebox to one invisible picturebox & tried to print but same result.


Regards.

[leinad31]

Oh... I thought you we're blitting directly from the screen.

[Saket]

i copied all the data to form, changed form apprearance property to flat & used form.printform but invain.


Regards.