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 :-

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

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

General Code

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