Hello everyone,

Has anyone had any experience with printing TIFF images programmatically using VB and Kodak Image Edit and Image Admin Controls?
A small piece of working code would be greatly appreciated.


Thank you in advance.

Hi,

1. Create a VB project
2. Include the Kodak Image Edit and Admin controls
3. Create a form
4. Add the Kodak Image Edit and Admin controls onto the form
5. Name the Image Edit control edtMain and the Image Admin control admMain
6. Add 2 command buttons onto the form - name them cmdOpen and cmdPrint
7. Include the following code into the form
8. You're ready to go

***********************************************
Private Sub cmdOpen_Click()

On Error GoTo err_handler

    admMain.Filter = "All Images Files|*.bmp;*.jpg;*.tif|" & _
        "Bitmap Files(*.bmp)|*.bmp|JPG Files(*.jpg)|*.jpg|TIFF Files(*.tif)|*.tif|"
    admMain.ShowFileDialog OpenDlg, Me.hWnd

    edtMain.Image = admMain.Image
    edtMain.Display

    Exit Sub

err_handler:

    'Do nothing

End Sub

Private Sub cmdPrint_Click()

On Error GoTo err_handler

    If edtMain.Image <> "" Then

        admMain.PrintNumCopies = 1
        admMain.Image = edtMain.Image 'Very important
        admMain.ShowPrintDialog Me.hWnd
        edtMain.PrintImage admMain.PrintStartPage, admMain.PrintEndPage, _
            admMain.PrintOutputFormat, admMain.PrintAnnotations

    End If

err_handler:

    'Do nothing

End Sub
***********************************************

for more info:
http://www.ilixis.com/developer/kodak.html