ImageCompositePrintDocument Class

public class ImageCompositePrintDocument : PrintDocument

Public Class ImageCompositePrintDocument
	Inherits PrintDocument

private string[] _folders;

//handle this event to tell the printer component what images to print
private void imageCompositePrintDocument1_PrintImage(object sender, Atalasoft.Imaging.WinControls.PrintCompositeEventArgs e)
{
    if (_folders != null && _folders.Length > e.ImageIndex)
    {
        //specify the image to print
        e.Image = new AtalaImage(_folders[e.ImageIndex]);
        //specify the caption of the image
        e.Caption = System.IO.Path.GetFileName(_folders[e.ImageIndex]);
    }

    //tell Print Document if there are more images/pages to print after this one
    if (e.ImageIndex >= _folders.Length - 1)
        e.HasMorePages = false;
    else
        e.HasMorePages = true;
}

//handle this event to dispose the image that's no longer needed
private void imageCompositePrintDocument1_AfterPrintImage(object sender, Atalasoft.Imaging.WinControls.PrintCompositeEventArgs e)
{
    if (e.Image != null)
        e.Image.Dispose();
}

//print the images
private void btnPrint_Click(object sender, System.EventArgs e)
{
    if (this.printDialog1.ShowDialog(this) == DialogResult.OK)
    {
        //get images from a folder
        _folders = System.IO.Directory.GetFiles("c:\\photos", "*.jpg");
        this.imageCompositePrintDocument1.Print();
    }
}

Private _folders() As String

'handle this event to tell the printer component what images to print 
Private  Sub imageCompositePrintDocument1_PrintImage(ByVal sender As Object, ByVal e As Atalasoft.Imaging.WinControls.PrintCompositeEventArgs) Handles imageCompositePrintDocument1.PrintImage
    If Not _folders Is Nothing And _folders.Length > e.ImageIndex Then
        'specify the image to print 
        e.Image = New AtalaImage(_folders(e.ImageIndex)) 
        'specify the caption of the image 
        e.Caption = System.IO.Path.GetFileName(_folders(e.ImageIndex))
    End If

    'tell Print Document if there are more images/pages to print after this one 
    If e.ImageIndex >= _folders.Length - 1 Then
        e.HasMorePages = False
    Else 
        e.HasMorePages = True
    End If
End Sub

'handle this event to dispose the image that's no longer needed 
Private  Sub imageCompositePrintDocument1_AfterPrintImage(ByVal sender As Object, ByVal e As Atalasoft.Imaging.WinControls.PrintCompositeEventArgs) Handles imageCompositePrintDocument1.AfterPrintImage
    If Not e.Image Is Nothing Then
        e.Image.Dispose()
    End If
End Sub

'print the images 
Private  Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
    If Me.printDialog1.ShowDialog(Me) = DialogResult.OK Then
        'get images from a folder 
        _folders = System.IO.Directory.GetFiles("c:\photos", "*.jpg") 
        Me.imageCompositePrintDocument1.Print()
    End If
End Sub