#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jan 2014
    Posts
    4
    Rep Power
    0

    A3 Size Report in PDF


    Hello Everyone

    I am using Component One Studio Vs View version 8 for report designing and Access as database
    I have designed one report which is A3 Size
    Report is Designed
    In above report designed there is facility to export report to PDF
    but this report when tried to export in PDF format
    it is cut
    next portion is not exported to PDF

    How Can I solve this Problem

    Sanjay
  2. #2
  3. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Feb 2014
    Posts
    4
    Rep Power
    0
    Are you using the ConvertDocument method ?

    How do you mean "the report is cut" ?

    Is it outputting to A4 size ? Or are some pages missing ?
  4. #3
  5. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jan 2014
    Posts
    4
    Rep Power
    0

    A3 size Report Printing


    Sir

    Thanks for your reply
    designed report width is more than 19 inches
    and when report is displayed or exported to PDF it show portion
    upto 11 inches only next portion from 11 inches to 19 inches do not displayed or exported to pdf

    Below I am giving my code for display and export to pdf
    if in code mistake is there pl let me know

    Thanks Again

    I am using following code for display of report

    Me.Caption = m_rtitle
    Frame1.Visible = False
    vsr.Clear
    vp.Clear
    vp.Height = 9500
    vp.Top = 0
    vp.Left = 0
    vp.Width = 19000
    vp.Visible = True
    vp.Zoom = 100

    vsr.Load App.Path & datafilename, m_rptfile
    m_strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\" & m_file & _
    "Jet OLEDBatabase Password=dcb2013"
    vsr.DataSource.ConnectionString = m_strconn
    vsr.DataSource.RecordSource = m_qry

    vsr.Layout.PaperSize = 8

    If m_orient = 2 Then
    vsr.Layout.Orientation = vsrLandscape
    Else
    vsr.Layout.Orientation = vsrPortrait
    End If
    If m_rhead = 0 Then
    vsr.Fields("labelreport").Text = m_rtitle
    End If
    If m_rhead = 1 Then
    vsr.Fields("titlelbl").Text = m_ctitle
    vsr.Fields("labelreport").Text = m_rtitle
    End If
    If m_rhead = 2 Then
    vsr.Fields("titlelbl").Text = m_ctitle
    vsr.Fields("titlelbl1").Text = m_ctitle
    End If
    If m_rhead = 3 Then
    vsr.Fields("titlelbl").Text = m_ctitle
    End If
    vsr.Layout.MarginBottom = 100
    vsr.Layout.MarginLeft = 800
    vsr.Layout.MarginTop = 200
    vsr.Layout.MarginRight = 100
    vsr.Render vp
    exitrout

    and to export report in PDF i used following code

    vp.KillDoc
    vp.Refresh
    Select Case ExportCombo.Text
    Case "HTML"
    mpfile = Trim$(mpfile) + ".htm"
    vsr.RenderToFile mpfile, vsrHTML
    Case "HTMLDrilldown"
    mpfile = Trim$(mpfile) + ".htm"
    vsr.RenderToFile mpfile, vsrHTMLDrillDown
    Case "HTMLPaged"
    mpfile = Trim$(mpfile) + ".htm"
    vsr.RenderToFile mpfile, vsrHTMLPaged
    Case "PDF"
    mpfile = Trim$(mpfile) + ".pdf"
    vsr.RenderToFile mpfile, vsrPDF
    Case "PDFUncompressed"
    mpfile = Trim$(mpfile) + ".pdf"
    vsr.RenderToFile mpfile, vsrPDFUncompressed
    Case "RTF"
    mpfile = Trim$(mpfile) + ".rtf"
    vsr.RenderToFile mpfile, vsrRTF
    Case "Text"
    mpfile = Trim$(mpfile) + ".text"
    vsr.RenderToFile mpfile, vsrText
    End Select
    MsgBox mpfile & " ......Report File is Generated ..... "
  6. #4
  7. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Feb 2014
    Posts
    4
    Rep Power
    0
    Try RenderTo a vsPrinter

    with
    .Device = "DISPLAY"
    also set A3 paper size as
    .PaperWidth=23760
    .PaperHeight=16848


    If that shows the full width
    then try RenderTo a pdf
  8. #5
  9. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jan 2014
    Posts
    4
    Rep Power
    0

    A3 size Report Printing


    Sir

    Thanks Again for your reply
    I made changes in my code as per your guidance
    and it works in displaying report
    it show full display of report
    however when exported to PDF
    it does not work
    PDF as it was previous

    Thanks
    Sanjay
  10. #6
  11. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Feb 2014
    Posts
    4
    Rep Power
    0
    Originally Posted by sanjay1236
    Sir

    Thanks Again for your reply
    I made changes in my code as per your guidance
    and it works in displaying report
    it show full display of report
    however when exported to PDF
    it does not work
    PDF as it was previous

    Thanks
    Sanjay
    Hi Sanjay,

    Do you have the VSPrinter8 (VSPrint8.ocx) control installed ?

    After displaying the full report (as above) you can use the .ConvertDocument method to save to PDF
  12. #7
  13. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jan 2014
    Posts
    4
    Rep Power
    0

    A3 size Report Printing


    Hello

    Thanks Again for your reply
    I have copied my code in earlier posts
    can you give me exact changes in code as above
    display is working, but pdf not yet I tried
    Can I get your email id wants to work jointly, if possible

    Thanks
    Sanjay

IMN logo majestic logo threadwatch logo seochat tools logo