ник: Дядя Федор
Элемент управления сканированием Kodak Image
ImageScan1
Me.Imgscan1.ScanTo = 2
'0 - Только на дисплей (просмотр)
'1 - На дисплей и файл
'2 - Только в файл
'3 - На дисплей и временный файл
'4 - Только в временный файл
'5 - На факс (если установлен)
Me.Imgscan1.Image = Me.IdInboxList.Column(4)
Me.Imgscan1.ShowSetupBeforeScan = True 'Выводить диалоговое окно сканера
ImageTypeTmp = 5
'Black and white 1
'16 shades of gray 2
'256 shades of gray 3
'256 colors 4
'True color (RGB 24 bit) 5
'16 Colors 6
CompInfoTmp = -25028
'NoCompInfo 0
'JPEGLowLow 11610
'JPEGLowMed 7740
'JPEGLowHigh 3870
'JPEGMedLow 27994
'JPEGMedMed 24124
'JPEGMedHigh 20254
'JPEGHighLow -21158
'JPEGHighMed -25028
'JPEGHighHigh -28898
'MsgBox Me.ImgAdmin1.ImageResolutionX & "/" & Me.ImgAdmin1.ImageResolutionY
Me.Imgscan1.SetPageTypeCompressionOpts 3, ImageTypeTmp, 8, CompInfoTmp
|
А Как программно указать разрешение в dpi?