Search Tools Links Login

Span a picture on multiple pages

Print a big picture on four pages

Private Sub cmdPrint_Click()
   Const PAGE_WIDTH = 8.5 * 1440
   Const PAGE_HEIGHT = 11 * 1440
   Dim intRow As Integer
   Dim intColumn As Integer

   For intRow = 0 To 1
      For intColumn = 0 To 1
         With Printer
            .ScaleLeft = intRow * PAGE_WIDTH
            .ScaleTop = intColumn * PAGE_HEIGHT
            .ScaleWidth = PAGE_WIDTH
            .ScaleHeight = PAGE_HEIGHT
         End With

         DrawPicture Printer

End Sub/code>

About this post

Posted: 2020-08-30
By: vb6boy
Viewed: 169 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.