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>