Printing Picturebox problem

davem

Hi,
I am writing a program in VB6 where an image is loaded into a picture box if I print this image it is exactly where I expect it to be.

The problem is I need to be able to draw lines on the image in the picture box.

This works fine on the screen but when I then print the image has moved diagonally towards the top left corner of the picturebox.

I am sure the problem is with the line drawing code but can not work out why it is moving the image when printing.

the drawing code is below :-

Expand|Select|Wrap|Line Numbers

 Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    'Releases last line if right mouse button is pushed

    If Button = 2 Then

        'Erases current Line

        Picture1.Line (X1, Y1)-(X2, Y2)

        'Reset line vaiables

        X2 = 0

        Y2 = 0

        LineOn = False

        Exit Sub

    End If

    'If the LineOn Flag is true

    If LineOn Then

        'Erase the Stretch Line

        Picture1.Line (X1, Y1)-(X2, Y2)

        'Turn inverted draw off

        Picture1.DrawMode = 13
 
            X2 = X

            Y2 = Y
 
        'Draw the final line

        Picture1.Line (X1, Y1)-(X2, Y2), RGB(0, 255, 0)

        'Set new start line points
 
            X1 = X2

            Y1 = Y2
 
            X1 = X

            Y1 = Y
 
        If LineOn <> 1 Then

            X2 = 0

            Y2 = 0

            LineOn = False

            Exit Sub

        End If

    Else

        'The line has not been drawn yet
 
            X1 = X: Y1 = Y
 
        'Set end values

        X2 = X

        Y2 = Y

        LineOn = True

    End If

    Picture1.DrawMode = 6

    Picture1.DrawStyle = 6

    X3 = X: Y3 = Y: X4 = X: Y = Y4

End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'Draw the stretch or rubberband line

    If LineOn Then

        Picture1.AutoRedraw = True

        Picture1.Line (X1, Y1)-(X2, Y2)

        X2 = X

        Y2 = Y

        Picture1.Line (X1, Y1)-(X, Y)
 
    End If

End Sub

I hope someone can help with this as it is driving me mad

Dave

tristanlbailey

I have thoroughly analysed your code, and have fixed it up for you; however, I am not sure if it will fix your printing problem. Try checking the print settings before printing (i.e. alignment, orientation, margins, etc.)

Declarations

Expand|Select|Wrap|Line Numbers

 Private LineOn As Boolean

Private X1 As Long, Y1 As Long, X2 As Long, Y2 As Long

General Code

Expand|Select|Wrap|Line Numbers

 Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    Select Case Button

    Case 1 'Left mouse button (draw)

        If LineOn Then

            'Complete the current line

            Picture1.DrawMode = 13

            Picture1.Line (X1, Y1)-(X, Y), RGB(0, 255, 0)

            LineOn = False

        Else

            'Prepare to draw line

            X1 = X

            Y1 = Y

            X2 = X

            Y2 = Y

            LineOn = True

        End If

    Case 2 'Right mouse button (cancel)

        If LineOn Then

            'Erase line if one is being constructed

            Picture1.Line (X1, Y1)-(X, Y)

            LineOn = False

        End If

    End Select

    Picture1.DrawMode = 6

    Picture1.DrawStyle = 6
 
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
    If LineOn Then

        Picture1.AutoRedraw = True

        'Erase the previous line created by last mouse move

        Picture1.Line (X1, Y1)-(X2, Y2)

        X2 = X

        Y2 = Y

        'Draw the stretch or rubberband line

        Picture1.Line (X1, Y1)-(X, Y)

    End If
 
End Sub

davem

Thanks for that it solved the right clicking to clear the line if you choose not to continue drawing, but still have the printing problem. I am new to this and it does not make sence to me that I can load different images from a drop down combo box and they load exactly in the picture box and just using the print form command will print it exactly where it should be, the form fits exactly the width of an A4 sheet of paper.
Draw even the shortest line and it prints the form ok with the picture box where it should be but the picture and lines have moved up and to the left obscuring the picture as though it has slipped behind the form.
I think I am going to have to try writing a full print command but are not sure that it will solve it.

Dave

Printing Picturebox problem

Post your reply

Similar topics