Antes de imprimir, primero vamos a recordar la forma de visualizar la imagen con diferente calidad.
1. Insertá en tu ventana el ole: Kodak Image Edit Control (ole_1)
2. Clic derecho en dicho control y elegí: Ole Control Properties.
3. En al ficha general, donde dice: Image Palete, tienes:Gray, RGB24, etc.
4. El script para mostrar la imagen es:
ole_1.Object.Image = "C:\logo.tif"
ole_1.Object.Display
Formas de imprimir una imagen tif:
* Con la funcion print de PB:
long Job
Job = PrintOpen( )
ole_1.Print(Job, 500,1000)
PrintClose(Job)
* Con la función PrintImage del ole Kodak Image Edit Control:
Ejemplo:
ole_1.object.PrintImage(1, 1, 3, False, "Canon BJC-250 Series","Canon BJC-250 Series", "Lpt1:")
* Mostrando una caja de diáologo y usando Kodax Image Admin Control.
1. En tu ventana donde está insertado el Kodak Image Edit Control (ole_1), además debes insertar el control: Kodax Image Admin Control (ole_2).
2. Script para imprimir:
Ejemplo:
ole_2.Object.Image = ole_1.Object.Image
ole_2.Object.ShowPrintDialog
ole_1.Object.PrintImage (ole_2.Object.PrintStartPage, ole_2.Object.PrintEndPage, &
ole_2.Object.PrintOutputFormat)
Nota: Se probó en Win XP. Si tienes dudas o deseas modificar otras opciones de impresión, bajate la documentacion de su página propietaria:
http://wms.eistream.com/support/support_imagingforwindows/link_pages/document_pro.htm
Se llama: ActiveX Controls Reference. Los ejemplos están en VB y C++.