Visual Basic :: Multi-Page Tiff

How Can I Select ONE Page Of A Multi-page Word OLE Document?
Hello,

I have the following code that works just fine as long as I have a Single-page word document loaded. However, I need to Select EACH page individually and rasterize into a TIF image. You will note that I am able to Find Text and Select the Entire Line. I can also Select the ENTIRE document using the "OLE1.object.Content.Select" method. But I just can't seem to figure out how to select a Single Page!!!

Once I use the ".Copy" method I AM able to "Paste" it into my Imaging Viewer (Pegasus ImagXpress) object. It is critical that I save these pages individually. Here is the code I'm using for this:
Code:
Private Sub Command3_Click()

    OLE1.DisplayType = 0 ' Display object in the control


    OLE1.CreateEmbed "C:Merged.doc", "Word.Document"

    OLE1.DoVerb vbOLEActivateGetFocus
    OLE1.SizeMode = vbOLESizeStretch

    'Find Text
    With Selection.Find
        .ClearFormatting
        .MatchWholeWord = True
        .MatchCase = False
        .Forward = True
        For i = 1 To 10
            .Execute FindText:="Client Account #:"
            DoEvents
            If .Found Then
                With Selection
                    .EndOf unit:=wdLine, Extend:=wdSelStartActive
                    ' Copy the selection to the Clipboard
                    .Copy
                    ' Paste the entire selection into the Text1 form field
                    Text1.Text = Trim(Clipboard.GetText)
                    ' Break out the Account # and paste it into the Text2 field
                    Text2.Text = Right(Text1.Text, Len(Text1.Text) - InStrRev(Text1.Text, ":"))
                End With
            End If
            DoEvents

            'Select the entire document
            OLE1.object.Content.Select

            With Selection
                .StartOf unit:=wdGoToAbsolute extend:=wdline
                'Copy selection to clipboard
                .CopyAsPicture
            End With
            DoEvents

            Form2.ImagXpress1.Paste
            MsgBox Form2.ImagXpress1.ImagError ' Shows Zero if No Error
            Form2.ImagXpress1.Refresh

            Form2.Show

            DoEvents
            'Goto next page
            Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext
        Next
    End With

' OLE1.Close

End Sub

Thanks,
Jacob

Edited by - JacobRusso on 11/18/2003 5:05:10 PM

Combining Single Page Tiff Images
Hi all,
I have 5 single page tiff images in a folder.How can I combine it to a single multi page tiff.
Thanks

Multi Page Datareport!
Hi,

I have many fields in a database which does not fit in a single page. How can I generate a report of more than 1 page in using datareport. I mean half of the fields data will display in page 1 and rest fields data in page 2.

Any help plssssssss?

Thanks

Multi-Page TIFFs
Hello everyone,

is it possible to handle (view an print) multi-page TIFFs with standard VB components?
If it is, how do I do that?

Multi-page Question?
Hi

Could anybody please help me out with the code to move from one page to another page within a multi-page object via a command button rather than clicking on a tab.
This is being done through VB-Script.

Thanks

Gregg

Crystal Multi Page
Is there a way to create a multi page report? I need three pages in my report.

Creating A Multi Page App For The Web
I feel kind of insane asking this, but here goes:

Our customer has asked us to quote on a new project, and rather than create a regular standalone VB app like we have been doing, they now state that they are requiring applications to run in a browser - the justification is purely to have the same look and feel between applications (never mind that the contents of the window could be whatever we want). This is all well and fine, but the application isn't just your run of the mill enter data & crunch away kind of thing - it is basically an HMI to a PLC system, utlilizing several instances of the Winsock control to do communications (this is all custom messaging), and uses several forms - one per 'screen'. The application reads in status info and updates 'animated' widgets that we have created as user controls to draw things like filling bargraphs and whatnot.

The current standalone implementation of the application has a hidden form that deals with all of the communications, and then calls the various screen update functions, depending on which screen is currently shown. Having never written an application destined for use in a browser, I'm a little lost at where to begin. The ActiveX document solution seemed like a start - but how would I create a background process that did the communications monitoring and notifications to screens?

As an aside, the customer initially wanted us to hook into IE and replace the standard menubar with our own menu - we pushed back and stated that doing something like that could tightly couple the app to whatever version of IE they used and would not be very 'portable'. They also stated that we could hide the buttons, URL bar, and title bar and essentially make our own...which begs the question "Why do you need a browser then?"

This application will be installed locally and run locally. There is no server in the system, just the PLC that shoots out data packets. Personally I don't feel that their requirement gets them anything, given that it is a local app and they plan to keep it that way. Any suggestions on how we could even go about implementing something like this? We had also proposed a Java solution, but some of the Applet limitations (we need to be able to save a file to disk from within the app) may steer us away from that.

Any ideas would be appreciated, thanks!

Creating Multi-page .tifs
I am trying to find a way to combine 2 (or more) single page .tifs into a single, multi-page .tif. My program is exporting images from our 3rd party imaging system, which exports each page of a document as a separate .tif (i.e. 3 pages = 3 files). I'd like to combine these into one file.

I know this can be done when you are viewing an image in Imaging for Windows you can, but I want to be able to do it within my program.

Thanks,
Kevin

"So much time, so little to do." - Willy Wonka

Crystal Rep API Multi-page Report
Hi!
I have made a report with CR APi that was made to be used with an access database and Act! database. The report was designed to work with one contact at the time but now I need to loop through the act database to create a report for a number of contacts. I tried to loop through my records and create the report but it overlaps in Crviewer. What I want to do is create a report per page. I tried grouping but can't get it to work since there is no grouping condition possible from my access database. The only grouping is from my Act database. Here's what it looks like:

{header}
(all textobject only)
----------------------------
{Detail}
(act record) <--- this is the record that I would need to use to create a group everytime it changes

(data from access related to my act record)
-----------------
{footer}
(textobjects only)

Any idea?

thanx

Creating Multi-Page Tiffs With VB6
Hello,

Is it possible, with VB6, to create a multipage Tiff document from a nuber
of bitmaps. A look through MSDN didn't reveal anything, and I was hoping
somebody might know of a control or API available for download that I
could use.

Any help/advice would be greatly appreciated.

Shane Mitchell

Tel: +353 61 335000
Fax: +353 61 335477
www: http://www.docosoft.com

Multi Page Report W/dynamic Images
Here is the situation. I'm able to display one image but I have two images on the report. The report is a two page report. One image on page one and one on page two. Here is the code I'm using:

Code:
Private Sub Section5_Format(ByVal pFormattingInfo As Object)

PPNNumber = Me.Database.Tables.Item(1).Fields.Item(177).Value
CardNumber = Me.Database.Tables.Item(4).Fields.Item(91).Value
PictureFileName = Right$("000000" + Mid$(Str(PPNNumber), 2), 6) + Right$("00" + Mid$(Str(CardNumber), 2), 2) + ".jpg"
100 Set Picture2.FormattedPicture = LoadPicture(UniversDatPath + "PICTURE" + PictureFileName)
Set Picture1.FormattedPicture = LoadPicture(UniversDatPath + "sketch" + PictureFileName)

ErrorHandler:
If Err = 53 Then
PictureFileName = "NOAVAIL.jpg"
Err = 0
GoTo 100
End If

End Sub
One image on the main report and the other is on a subreport. I get an error on PICTURE1.formattedpicture which is "PERMISSION DENIED" Error 70. When that line is executed. I imported my report from Crystal reports 8.5. This was a .rpt. All subreports were rpt also. That created my .dsr report from within vb6. Because I imported from an existing .rpt file do all subreports contained in the main report have to be reimported to establish that they are .dsr files in order to dynamically change images on any of them which contain a ole object?? If you need further info just post it. I will respond.

Programatically Creating Multi-Page TIFS
I have an app that currently uses Print2Image to print from an app to a TIF file. It can print multiple TIF files. I then use the Wang Image controls to combine the multiple TIF files with a cover sheet into one multi-page TIF file. Then I print that TIF file to the local printer.

We're upgrading to Windows XP, and the Wang Control is no longer licensed for use by Microsoft. Has anybody done this using anything else? What would be the most direct/efficient code or control to use for this?

Thanks in advance!

Tim

Editing A Multi-page (the Thing With Tabs)
Hi, ive added a multi-page to a form (i think the multi-page i added was from the 'Microsoft Form Objects 2.0'), i can edit the captions and all that stuff but when i add objects to it i dont know how to edit their properties. it wont let me do anything with them.
How can i edit them just like a normal object on a normal form? if there is a different way to do it, how?

cheers.

Multi-page Data Entry Screens
Hello all. I am working on a VB program which will involve a significant number of data entry fields that fall into one of six or so categories. I don't want to crowd all those fields onto one form so naturally I want to use something like a TabStrip to subdivide the fields by categories. I ran into some problems with the TabStrip...controls showing up on more than one tab page and so forth. So I tried this alternate approach: I created Command buttons to take the place of the tabs and Frames to take the place of the tab pages. The Command buttons contain code to set the Visible property of all but one Frame to False (and the Visible property of the intended Frame to True). This works for me if I have only two Frames involved, but when I try it with more than two Frames, one or more of my Frames will not appear when I click the associated button. Have any of you good people run across this behavior before and/or any ideas how I can accomplish my goal? If I'm not being clear enough I can go into more detail, please let me know and thanks in advance for any suggestions.

Multi Page Image Viewer Solution
ImageViewer CP 2.0 release
You can Print the Image to Printer.
Smooth Scrolling improvement in Version 2.0.
Rotate and zoom the image easily.
Export Image to JPEG, GIF, BMP, TIFF, PNG according to your chosen size of display area.
Support loading Multi-Page Image File(TIF).

download vb sample code
http://viscomsoft.esmartweb.com

Convert Multi-page TIF To Jpg W/o Using Kodak Image Control
In VB6.0 environment, anyone know how to convert multi-page TIF image to jpg format. I know that Kodak Image control can do so but seem that it can work well under Wondows 2003. I have also try GDI+ but don;t know how it can handle multi-page format.

Multi-page Scans Using Kodak Image Scan Control
I am trying to use this ocx to scan multiple pages. I wish to insert a doc into the scanner, scan it, insert the next doc, scan it etc until finished so the end result is a file with multiple images. I can only get this to work with a single scan. when i attempt to scan page 2 I either get an error saying the file exists or i get an invalid page number depending on the settings of the .PageOption and .Page properties that i may have played about with at the time. Is there any way I can multiple scan documents into a single file using this control?

Thanks for any help or ideas!

Compressed TIFF Vs Normal TIFF
I'm currently writing an app using the Wang/Eastman/Kodak OCX group. It needs to handle full scanning capabilities, including OCR, and archiving the scanned documents. The scanning and OCR componets weren't to difficult to incorporate, however when it came time to store the scanned documents I ran into a storage size problem. The problem being, I have to use TIFF format to store the documents in their original size, colour, and multiple pages. No matter what compression method I use, the size of the files are completely unacceptable!

What I found however is that the scanning software that came with the HP scanners offered a save type for Compressed TIFFs, which have a very reduced size compared to normal TIFF files. My question is, what compression methods do they use to make the files so small??

Anyone with info on this or any other ideas to keep my files sizes please respond.

Thanks.

Outputting Address Information To A Word Multi Lable Per Page Template - Any Ideas?
Hi, given addr1,addr2,town etc etc, I need to create a word document from a template which has 3x8 pre-defined areas for stickly lables. Any thoughts on how to do this?

Code For Batch-converting Tiffs Into Multi-page Tiffs
I am looking for a way to batch convert single-page tiff files to multi-page tiff files based on filenames.
For example, a 10-page document has a separate tiff file for each page as follows:
86083901_10292575_039.tif
86083901_10292575_040.tif
86083901_10292575_041.tif
86083901_10292575_042.tif
....and so on.

The first 8 digits are "Document number", and I want to combine all pages that start with the same eight numbers into 1 multi-page tiff or pdf file. The other numbers do not matter.
I found some shareware programs (Tiff Paging, Tiff Combine) that combine tiffs but none of them have a batch script to combine using filenames, and trying to check 10,000+ files will take forever.
I am a complete noob when it comes to VB, so any help/suggestions/tutorials is appreciated.

Multi Form, Multi Character, Multi Problems!
My RPG is based on various locations represented by several forms (e.g. the CO office, the briefing room etc...something like in B17 The mighty 8th).
My character info are written in a file: any time I change room (= change form) I make a call on that file to "know" who's the player.
Things work if I use one player. But if I want to restart the game with a different player (keeping all the info of the previous one) I don't know how to manage the various file. Assuming that each player file is named after the player's name, anytime I have to change form I should ask the player name!
Is there anybody can suggest anything?

Can I View Multi Forms-same Page View?
If I create three forms: form1, form2, form3

Then I like to have form1 show on the top left and half page down and half page across. Then form2 show to the right of form1 for other half page across and half way down (as form1 is half way down).

Now form3 will show taking up the bottom full half of the page (Not being split in half across the page as form1 and form2).

I know how to Load form then show form for form1 and I can hide form1 then show form2, yet I can't find how to show two or more forms like I've mention above.

If someone could show me to a good thread or something,
Thanks

Rick101

Word - Loop Through Each Page In Document And Copy Page With Page Format
Here's what i'm trying to accomplish

1 - Start at first page and get page format (portrait/landscape)

2 - Copy page and paste it into a new word document with original format

repeat these steps until all pages have been copied

I need the condition where a document has both portrait and landscape pages.

Anyhelp would be appreciated

One Form, Multi-top-tags, Multi-faces Display
When you check Windows property settings, through Control Panel, You will see that a typical interface is one window with many tags on the top. Clicking these tags leads to different infomation show in the same window. That is very cool!. I wonder how to design it in VB. Where can I find a code sample in website?

Printer Change Page Orientation From Page To Page
I'm running VB 5. Is it possible to change the page orientation from one page to another.

portion of code:
If page_orientation(gridno) = 0 Then
Printer.Orientation = vbPRORPortrait
Else
Printer.Orientation = vbPRORLandscape
End If

If I use "Printer.EndDoc" before the above code, the program works fine. Each page is a separate 'print-job' with the orientation that I want. A problem arises when I want to print to a .PDF printer: each page is saved as a separate PDF because they're all separate 'print jobs'.

If I substitute "Printer.EndDoc" with "Printer.NewPage", I get the error "orientation property cannot be set within a page". Is there any way to get around this?

Err: 'Page Header Plus Page Footer Is Too Large For The Page' With CR9.0
Dear All

I have a trouble making a report using Crystal Report 9.0. I am working on a project which is developed in vb 6.0. What it actually does is, pick some details from the DB (Access 2000) and shows it on the CR 9.0. I've made a TTX File for the same.

But as I run the report it gives an error msg which says Err: 'Page Header plus Page Footer is too large for the page'

To Mention : I am using the custome page size i.e. 6" x 8"..

Can any body help me plz...

Regards,
K****ij

Err: Page Header Plus Page Footer Is Too Large For The Page Using CR9.0
Dear All

I have a trouble making a report using Crystal Report 9.0. I am working on a project which is developed in vb 6.0. What it actually does is, pick some details from the DB (Access 2000) and shows it on the CR 9.0. I've made a TTX File for the same.

But as I run the report it gives an error msg which says Err: 'Page Header plus Page Footer is too large for the page'

To Mention : I am using the custome page size i.e. 6" x 8"..

Can any body help me plz...

Regards,
Kshitij

Multi D. Arrays = Multi ' My Head Hurts'
hi again guys. i have a question regarding tile place ment in my adventure game.

say i have 2 bmps - grass.bmp and tree.bmp
and i want them layed out like this

g g g g g
g g g g g (meant to be in a straight line)
g g g g g
t t t t t
t t t t t

dim pickles(4,4)
would i be correct(i am only new to this theory) in saying this:

for b(for breadth) = 0 to 4 then
for lg = 0 to 2 then
for lt = 3 to 4 then

pickles( b, lg) =
( how do i say to put the grass bmp here if the array can only store strings or numbers)
pickles(b,lt) = (how di i put the trees?)

i think it has some thing to do with creating a boolean(if that is a true or false statement) and saying yes in these circumstances like

pickles( b, lg) = treestrue = true

please help as i am lost in a world of street directories!

thank you for responding, if you dont, then thanks for....... um..... ... well, thanks to all

Multi Files Transfer & Multi Connections
Multi Files Transfer , it's my Project ! , and it deals with multi connections ..

ok ?

when the a new user is connected , new form is loaded :

Public nfrmNewTransfer(0 To 999) As Form ' 1000 Users
----------
Set nfrmNewTransfer(nUm) = New frmNewTransfer

So , I can handle many users in the same time , ok ?

then a want to open 10 file transfer for every user , so, I use a class

Dim FTransferDown(1 To 9) As New CtransferDown ' 10 classes

my problem is I can't find a way to send multi files to multi users in the same time because I'm not able to specify the 10 classes to every user ,

got it ?

please help me , thanx

What Is The Difference Between Multi-threaded And Multi-processing
What is the difference between multi-threaded and multi-processing interms of software. If you can prove examples that would be fine. Also which is more stable when it comes to socket programming

Multi-Threading/Multi-Processing
lol thats like saying - i dunno what format c: does but im gonna say yes to it and see what happens, Oh well like i can talk i need to learn about threads also lol

So if i make a activeX exe with threading by object turned on in the properties, does it automaticaly thread any DLL objects that i might use
or like in that threading.dll do i have to address a specific sub in my DLL ?

lol maybee its time i just knuckled down and learnt C++

Multi Keys Multi Function?
I am Designing Project Which control toy car by parallel port. User can control car by keyboard ie. Direction keys or other keys. My question is

How can I sense/Program that how many keys pressing by user i.e. User can press one key at a time (eg. Forward) or more then one key at a time ( Forward+left+speedkey)?

Multi Undo Multi TextBoxes
I know it is possible to do a multi undo. Can you do it with more then one text box though? i've seen some unlimited undo's but they only have to do with 1 text box. I'm looking for some way to make it watch like 3 things on a form or more. Would you know where i might find a good example? (also Redo's too)

Tiff
Is there a way to open a .TIFF image in VB? It seems that Image and Picturebox controls don't support this format.

Cm.

VB Tiff
I am using VB.net, and am writing a program that takes tiff files from a folder, combines them into a single tiff file, and then faxes them. In order for the faxcomex library to accept a tiff as a fax body, the tiff file must either be uncompressed or use compression 4, and must have a width of 1728 pixels. The tiff files I am working with do not have that width. Thus, I need to write a function which changes the width. I tried using this:

Dim TmpImage As New Bitmap("c:1.tif")
Dim NewImage As New Bitmap(TmpImage, New Size(1728, 2200))
NewImage.Save("c:2.tif", Imaging.ImageFormat.Tiff)

The problem here is that although the size is changed, it also changes the compression to lzw, which I cannot use. I did some searching on the net and came up with this:

Dim codec As Imaging.ImageCodecInfo = GetEncoderInfo("image/tiff")
Dim imgPrms As New Imaging.EncoderParameters(2)

imgPrms.Param(0) = New Imaging.EncoderParameter(Imaging.Encoder.ColorDepth, 1L)
imgPrms.Param(1) = New Imaging.EncoderParameter(Imaging.Encoder.Compression, Imaging.EncoderValue.CompressionCCITT4)

Dim TmpImage As New Bitmap("c:1.tif")
Dim NewImage As New Bitmap(TmpImage, New Size(1728, 2200))
NewImage.Save("c:2.tif", codec, imgPrms)

Private Function GetEncoderInfo(ByRef mimeType As String) As Imaging.ImageCodecInfo

For Each ice As Imaging.ImageCodecInfo In Imaging.ImageCodecInfo.GetImageEncoders()
If ice.MimeType.Equals(mimeType) Then
Return ice
End If
Next
Throw New Exception(mimeType + " mime type not found in ImageCodecInfo")
End Function
End Class

However, when this is run, it returns an error of "invalid parameter". I have tried this both with and without the color depth parameter. I tried using the image variable type instead of bitmap, and it saved properly. The problem here is that there does not seem to be a way to modify the size of the image when using the image type, which was the whole point in the first place. I then discovered that it was not the fact that I was using type bitmap that caused the problem. It's the resizing. If I don't resize the image, it goes through fine, but once again, the resizing is the whole point. So, I'm stuck -- I can either have the right compression and the wrong size, or the right size and the wrong compression. I could really use some help.

Thanks

Tiff To Jpg
Hi to everyone

I have to convert a *.tif file to a *.jpg one.
Using the SaveAs method of the ImgEdit control (from Kodak), i can save my *tif file to a *.bmp.

If i try to save it to jpg the control return this error:

Internal Control Error.

How can I solve this problem?
Exist another control that can make this file conversion?

I tried the ImageMagick library, but i was unable to find the ImagMagickObject.dll wich is the one that expose the method to VB.

Someone can Help me?

Thanks a lot.

Simone.

PDF To Tiff
Need a little help on a batch command. I am useing a 3rd party ocx that will allow me to open a pdf image and save it as a tiff. I load the pdf images in a listbox and have to save them one at a time which works good but I would like to be able to save them in a batch mode with the file name if that would be possible. Any help on this would be great. Here is my save code mabe someone in this form can help or guide me in the right direction. Thanks

vb Code:
Private Sub Command1_Click()On Error Resume NextMe.CommonDialog2.ShowSaveMe.CommonDialog2.Filter = "Tif (*.tif)|*.tif|"Me.CommonDialog2.FilterIndex = 2strFile = Me.CommonDialog2.FileNamestrType = Trim(cbooutputimage.List(cbooutputimage.ListIndex))ImageViewer1.View = 5ImageViewer1.ImageDPI = 200If cbooutputimage.List(cbooutputimage.ListIndex) = "ICO" Thena = Me.ImageViewer1.SaveBySize(strFile, "ico", 32, 32)Elsea = Me.ImageViewer1.Save(strFile, strType)End IfList2.RemoveItem (FileName)List2.RefreshList2.Selected(Value) = TrueImageViewer1.View = 9End Sub