Printing multi-page TIFF with RasterImagePrinter in VB6

I'm using v16.5 Com Interop libraries.

I need to print multi-page tiffs. So far I've tried the RasterImagePrinter.PrintImage; looping through each page and printing. And the cancel dialog will pop-up for each page.

Is there a way to perform this operation more efficiently?

Thanks.

Since you are using v16.5 Com Interop components, the best way to print your multi-page file is to use the RasterImagePrinter.PrintImage method.

Thanks,
Maen Badwan
LEADTOOLS Technical Support

For example, I want to print a multipage tiff with 3 pages, the 3 cancel dialogs popup on the screen. Can you suggest a way for me to handle this situation.

You can use low-level printing using the Visual Basic 6 printer object. Here's sample code:
--------
Set rasterViewer.image = rasCodecs.Load_12("D:\TestFolder\MultiPage.tif")
Printer.Print "" 'init printer
Dim pp As RasterPaintProperties
Set pp = rasterViewer.PaintProperties
Dim rectPrinter As New Rectangle
rectPrinter.x = 0
rectPrinter.Y = 0
rectPrinter.Width = Printer.Width / Printer.TwipsPerPixelX
rectPrinter.Height = Printer.Height / Printer.TwipsPerPixelY
Dim i As Integer
For i = 1 To rasterViewer.image.PageCount
   rasterViewer.image.Page = i
   rasterViewer.image.Paint_3 Printer.hDC, rectPrinter, pp
   If i = rasterViewer.image.PageCount Then
      Printer.EndDoc
   Else
      Printer.NewPage
   End If
Next i
--------

Thanks,
Maen Badwan
LEADTOOLS Technical Support

thanks, that does the job and fixed the other issue.