Scan Images And Save In PDF

'(1)Scan images with ADF, add pages in succession to a single PDF document
'Click Button1 to execute scan
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     'Suppress the manufacturer's UI and scan from the ADF (single-sided)
     ImageKit1.Scan.UserInterface = Newtone.ImageKit.ScanUserInterface.Suppress
     ImageKit1.Scan.Mode = Newtone.ImageKit.ScanMode.ADFOneSide
     'The PDF filename
     ImageKit1.File.Pdf.SaveFileName = "scanned_image.pdf"

     'Paper orientation
     ImageKit1.File.Pdf.Landscape = False
     'Paper size
     ImageKit1.File.Pdf.DocumentSize = "a4"

     ImageKit1.File.Pdf.Start()

     Dim ret As Boolean = ImageKit1.Scan.Execute()
     If Not ret Then
          MessageBox.Show("The scan failed. ErrorStatus = " + ImageKit1.ErrorStatus.ToString())
     End If

     ImageKit1.File.Pdf.End()
End Sub

'In the ImageKit control's AfterScan event, add a page and save the captured image
Private Sub ImageKit1_AfterScan(ByVal sender As Object, ByVal e As Newtone.ImageKit.AfterScanEventArgs) Handles ImageKit1.AfterScan
     ImageKit1.Image = e.Bitmap1

     'The scanned data is in BMP format which is large in size, so here we are converting it to JPEG RawData.
     ImageKit1.File.SaveImageToRawData(Newtone.ImageKit.SaveFileType.SaveJPEG, Nothing)

     ImageKit1.File.Pdf.AddPage()
     'Save as Byte() to PDF using AddImage method
     ImageKit1.File.Pdf.AddImage(ImageKit1.File.RawData, 0, 0, ImageKit1.File.Pdf.DocumentWidth, ImageKit1.File.Pdf.DocumentHeight)
     ImageKit1.File.Pdf.EndPage()
End Sub

'(2)Scan images with ADF, save each image in separate PDF files
'Click Button1 to execute scan
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     'Suppress the manufacturer's UI and scan from the ADF (single-sided)
     ImageKit1.Scan.UserInterface = Newtone.ImageKit.ScanUserInterface.Suppress
     ImageKit1.Scan.Mode = Newtone.ImageKit.ScanMode.ADFOneSide

     Dim ret As Boolean = ImageKit1.Scan.Execute()
     If Not ret Then
          MessageBox.Show("The scan failed. ErrorStatus = " + ImageKit1.ErrorStatus.ToString())
     End If
End Sub

'In the ImageKit control's AfterScan event, add a page and save the captured image
Private Sub ImageKit1_AfterScan(ByVal sender As Object, ByVal e As Newtone.ImageKit.AfterScanEventArgs) Handles ImageKit1.AfterScan
     ImageKit1.Image = e.Bitmap1

     'File name to save PDF (In this example, we add a number to the end of the filename so that the previous PDF will not be overwritten.)
     ImageKit1.File.Pdf.SaveFileName = "scanned_image" + e.ImageNumber.ToString() + ".pdf"
     'Paper orientation
     ImageKit1.File.Pdf.Landscape = False
     'Paper size
     ImageKit1.File.Pdf.DocumentSize = "a4"

     ImageKit1.File.Pdf.Start()
     ImageKit1.File.Pdf.AddPage()
     'Embed the captured image on the entire page
     ImageKit1.File.Pdf.AddImage(ImageKit1.File.RawData, 0, 0, ImageKit1.File.Pdf.DocumentWidth, ImageKit1.File.Pdf.DocumentHeight)
     ImageKit1.File.Pdf.EndPage()
     ImageKit1.File.Pdf.End()
End Sub

//(1)Scan images with ADF, add pages in succession to a single PDF document
//Click Button1 to execute scan
private void button1_Click(object sender, EventArgs e)
{
     //Suppress the manufacturer's UI and scan from the ADF (single-sided)
     ImageKit1.Scan.UserInterface = Newtone.ImageKit.ScanUserInterface.Suppress;
     ImageKit1.Scan.Mode = Newtone.ImageKit.ScanMode.ADFOneSide;

     //PDF Filename
     ImageKit1.File.Pdf.SaveFileName = "scanned_image.pdf";

     // Paper orientation
     ImageKit1.File.Pdf.Landscape = false;
    //Paper size
     ImageKit1.File.Pdf.DocumentSize = "a4";

     ImageKit1.File.Pdf.Start();

     bool ret = ImageKit1.Scan.Execute();
     if (!ret)
     {
          MessageBox.Show("The scan failed. ErrorStatus = " + ImageKit1.ErrorStatus.ToString());
     }
     ImageKit1.File.Pdf.End();
}

//In the ImageKit control's AfterScan event, add a page and save the captured image
private void imageKit1_AfterScan(object sender, Newtone.ImageKit.AfterScanEventArgs e)
{
     ImageKit1.Image = e.Bitmap1;

     //The scanned data is in BMP format which is large in size, so here we are converting it to JPEG RawData.
     ImageKit1.File.SaveImageToRawData(Newtone.ImageKit.SaveFileType.SaveJPEG, null);

     ImageKit1.File.Pdf.AddPage();
     //Save as Byte[] to PDF using AddImage method
     ImageKit1.File.Pdf.AddImage(ImageKit1.File.RawData, 0, 0, ImageKit1.File.Pdf.DocumentWidth, ImageKit1.File.Pdf.DocumentHeight);
     ImageKit1.File.Pdf.EndPage();
}

//(2)Scan images with ADF, save each image in separate PDF files
//Click Button1 to execute scan
private void button1_Click(object sender, EventArgs e)
{
     //Suppress the manufacturer's UI and scan from the ADF (single-sided)
     ImageKit1.Scan.UserInterface = Newtone.ImageKit.ScanUserInterface.Suppress;
     ImageKit1.Scan.Mode = Newtone.ImageKit.ScanMode.ADFOneSide;

     bool ret = ImageKit1.Scan.Execute();
     if (!ret)
     {
          MessageBox.Show("The scan failed. ErrorStauts = " + ImageKit1.ErrorStatus.ToString());
     }
}

//In the ImageKit control's AfterScan event, add a page and save the captured image
private void imageKit1_AfterScan(object sender, Newtone.ImageKit.AfterScanEventArgs e)
{
     ImageKit1.Image = e.Bitmap1;

     //File name to save PDF (In this example, we add a number to the end of the filename so that the previous PDF will not be overwritten.)
     ImageKit1.File.Pdf.SaveFileName = "scanned_image" + e.ImageNumber.ToString() + ".pdf"
     //Paper orientation
     ImageKit1.File.Pdf.Landscape = false;
     //Paper size
     ImageKit1.File.Pdf.DocumentSize = "a4";

     ImageKit1.File.Pdf.Start();
     ImageKit1.File.Pdf.AddPage();
     //Embed the captured image on the entire page
     ImageKit1.File.Pdf.AddImage(ImageKit1.File.RawData, 0, 0, ImageKit1.File.Pdf.DocumentWidth, ImageKit1.File.Pdf.DocumentHeight);
     ImageKit1.File.Pdf.EndPage();
     ImageKit1.File.Pdf.End();
}