Solved

Mulitple page TIFF

Posted on 2000-02-20
8
545 Views
Last Modified: 2008-03-06
How can i separate a multiple page TIFF file into single pages?(Using VB)
0
Comment
Question by:ramanan
  • 4
  • 3
8 Comments
 
LVL 1

Expert Comment

by:georgeman
ID: 2541175
Ramanan
- load your tiff file in ImgEdit box (Wang Imaging control)
- save all pages as te separate tiff files
- that's it
Good luck
George
0
 
LVL 14

Expert Comment

by:waty
ID: 2541765
For my part, I use Kofax to do that, but you need to buy the OCX.
0
 
LVL 1

Expert Comment

by:georgeman
ID: 2543760
Wang Image OCX control is a part of Win95/98/2000 so it is absolutely free
0
 

Author Comment

by:ramanan
ID: 2544725
Thanks Georgeman. I tried using Wang Image. I was able to separate the tiff image into single pages, but could not save it as single tiff images using VB
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 1

Expert Comment

by:georgeman
ID: 2544751
If you can separate one page, try insert it in the additional IngEdit box and then save it from this box into onepage tiff file.
You can use ClipboardCopy / ClipboardPaste ImgEdit methods for that.
Regards
George
0
 
LVL 1

Accepted Solution

by:
georgeman earned 50 total points
ID: 2544820
ramanan
I test code below. Just create new project, form1, ImgEdit1, ImgEdit2, command1, and place this code in Command1_click event

Private Sub Command1_Click()
'
 Dim iTemp As Integer
'
 ImgEdit1.ClearDisplay
 ImgEdit1.Image = App.Path & "\fax001.tif" 'load multiple page tiff file
 ImgEdit1.Display
'
 For iTemp = 1 To ImgEdit1.PageCount
 
 ImgEdit1.Page = iTemp 'change page
 ImgEdit1.Display

'Create blank image
 ImgEdit2.DisplayBlankImage ImgEdit1.ImageWidth, ImgEdit1.ImageHeight, _
                              ImgEdit1.ImageResolutionX, ImgEdit1.ImageResolutionY, 1

'copy page of tiff file into the Clipboard
 ImgEdit1.ClipboardCopy 0, 0, ImgEdit1.ImageWidth, ImgEdit1.ImageHeight
 
'insert page of tiff file from the Clipboard
 If ImgEdit2IsClipboardDataAvailable = True Then
   ImgEdit2.ClipboardPaste 0, 0
   ImgEdit2.CompletePaste
   ImgEdit2.Refresh
 End If

'Select new image
 ImgEdit2.DrawSelectionRect 0, 0, ImgEdit2.ImageWidth, ImgEdit2.ImageHeight

'Save page in file as new tiff/B&W/no compression/no compression/original size file
 ImgEdit2.SaveAs App.Path & "\newfax" & Format(iTemp) & ".tif", 1, 1, 1, 0, False

 Next
'
End Sub

Rgards
George
0
 

Author Comment

by:ramanan
ID: 2544846
I tried this. But all the tiff images are blank.
0
 

Author Comment

by:ramanan
ID: 2544877
Thanks georgeman. Nice of you.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now