|
-
Jan 30th, 2011, 12:49 AM
#1
Thread Starter
Lively Member
CR viewer without menu bars
Hello
I need to convert a crystal report to a file that can be sent via e-mail. After many hours of searching and coding I came up with a way to copy the CR viewer page to a picture box and save it to a BMP file.
My problem now is I don't want the menu bars around the page. I only want to save the viewer portion. Is there a way to bring up the CR viewer page without the menus. That would finalize my problem.
I am also open to good suggestions on how to convert the CR page to a PDF or BMP in other ways. The page I am saving is a bid sheet I need to e-mail to the customer thru the VB6 program I have written. I am using CR9.
Thank you
-
Jan 30th, 2011, 01:17 AM
#2
Re: CR viewer without menu bars
There lots of posts in this forum about exporting to pdf, do some searching in this forum and you should find what you need.
-
Jan 30th, 2011, 01:45 AM
#3
Thread Starter
Lively Member
Re: CR viewer without menu bars
Thats the problem I need an RPT file from CR to work. and all my files in my program are DSR and all these scrips I get won't read them.
-
Jan 30th, 2011, 01:58 AM
#4
Thread Starter
Lively Member
Re: CR viewer without menu bars
this is the script I am using to capture the form. Is there a way to set perimeters that will cut out the menus. I'm using the " Set Picture1.Picture = CaptureClient(Form8)" to get the inside of the form.
Private Sub optCapture_Click(index As Integer)
Dim EndTime As Date
frameSave.Enabled = True
Select Case index
Case 0
Set Picture1.Picture = CaptureScreen()
Case 1
Set Picture1.Picture = CaptureForm(Me)
Case 2
Set Picture1.Picture = CaptureClient(Form8)
Case 3
If vbOK = MsgBox("The active window will be captured five seconds after you click OK.", _
vbOKCancel + vbInformation, "Capture Active Window") Then
' Wait for two seconds.
EndTime = DateAdd("s", 5, Now)
Do Until Now > EndTime
DoEvents
Loop
Set Picture1.Picture = CaptureActiveWindow()
' Set focus back to form.
'ROB commented out Me.SetFocus AND used next line instead.
ShowWindowPlease Me
Else
optCapture(3).Value = False
End If
Case 4
Set Picture1.Picture = Nothing
frameSave.Enabled = False
End Select
End Sub
-
Jan 30th, 2011, 03:25 AM
#5
Thread Starter
Lively Member
Re: CR viewer without menu bars
Never mind I found the formatting on the page as was able to make it work good enough
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|