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
         Printer.NewPage
      Next
   Next
   Printer.EndDoc

End Sub/code>

About this post

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

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.