Results 1 to 5 of 5

Thread: CR viewer without menu bars

  1. #1

    Thread Starter
    Lively Member
    Join Date
    May 2010
    Posts
    80

    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

  2. #2
    PowerPoster
    Join Date
    Sep 2005
    Location
    Modesto, Ca.
    Posts
    5,513

    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.

  3. #3

    Thread Starter
    Lively Member
    Join Date
    May 2010
    Posts
    80

    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.

  4. #4

    Thread Starter
    Lively Member
    Join Date
    May 2010
    Posts
    80

    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

  5. #5

    Thread Starter
    Lively Member
    Join Date
    May 2010
    Posts
    80

    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
  •  



Click Here to Expand Forum to Full Width