HOWTO: Print a Cover Page with ImagePrintDocument

DEPRECATION WARNING: This article needs to be rewritten to remove use of ImageCollection

ImageCollection is a very memory hungry class and should be replaced with an ImageSource whenever possible

 Please see HOWTO: Use an ImageSource with an AnnotatePrintDocument or ImagePrintDocument

DotImage’s Canvas object allows the user to draw objects onto an AtalaImage. Combining this with the ImagePrintDocument object, the user can create dynamic printed content. The snippets below demonstrate how to add a front title page to the document in the printer.

C#

private void PrintWithTitlePage(ImageCollection imgcol)
{
    Dpi Resolution = new Dpi(100, 100, ResolutionUnit.DotsPerInch);
    AtalaImage img = GenerateTitlePage(Resolution, "This is my Title");
    imgcol.Insert(0, img);
    ImagePrintDocument print = new ImagePrintDocument(imgcol);
    print.Print();
}
 
private AtalaImage GenerateTitlePage(Dpi Resolution, string Title)
{
    AtalaImage img = new AtalaImage((int)(8.5 * Resolution.X),(int)(11 * Resolution.Y), PixelFormat.Pixel1bppIndexed, Color.White);
    Canvas c = new Canvas(img);
    c.DrawText(Title, new Rectangle(new Point(0,(int)(.4*img.Size.Height)),      img.Size), new Font(FontFamily.GenericSansSerif,30),new AtalaPen(Color.Black).Fill,new TextFormat(TextAlignment.Center));
    return img;
}

VB.NET

Private Sub PrintWithTitlePage(ByVal imgcol As ImageCollection)
    Dim Resolution As New Dpi(100, 100, ResolutionUnit.DotsPerInch)
    Dim img As AtalaImage = GenerateTitlePage(Resolution, "This is my Title")
    imgcol.Insert(0, img)
    Dim print As New ImagePrintDocument(imgcol)
    print.Print()
End Sub
 
Private Function GenerateTitlePage(ByVal Resolution As Dpi, ByVal Title As String) As AtalaImage
    Dim img As New AtalaImage(CInt((8.5 * Resolution.X)), CInt((11 * Resolution.Y)), PixelFormat.Pixel1bppIndexed, Color.White)
    Dim c As New Canvas(img)
    c.DrawText(Title, New Rectangle(New Point(0, CInt((0.4 * img.Size.Height))), img.Size), New Font(FontFamily.GenericSansSerif, 30), New AtalaPen(Color.Black).Fill, New TextFormat(TextAlignment.Center))
    Return img
End Function

Original Article:
Q10297 - HOWTO: Print a Cover Page with ImagePrintDocument