mibuso.com
Home› NAV Three Tier
Options

RTC Report Header Printing two Pages

sameerarsameerar Member Posts: 63
edited 2011-03-24 in NAV Three Tier
Hello Experts,

I have faced another RTC Report Header Problem.

When Preview the Report I can view the Report Header. But When I am printing it(Report is Only One Page). First page there is Not Header and it creates another page and header Printing on that Page..

Please help

Comments

  • Options
    sameerarsameerar Member Posts: 63
    and also in the Report preview there is not print Option,Excel export option available. Please check the Screen shot.
  • Options
    mohana_cse06mohana_cse06 Member Posts: 5,503
    Can you show the Report Layout?

    -Mohana
    http://mohana-dynamicsnav.blogspot.in/
    https://www.facebook.com/MohanaDynamicsNav
  • Options
    sameerarsameerar Member Posts: 63
    Here with i have the attachment..
    sss.png 324.3K
  • Options
    mohana_cse06mohana_cse06 Member Posts: 5,503
    why did you have lot of space at right side?

    can you set that to exact (in the bottom alos if you have)

    -Mohana
    http://mohana-dynamicsnav.blogspot.in/
    https://www.facebook.com/MohanaDynamicsNav
  • Options
    sameerarsameerar Member Posts: 63
    Thanks Mohana, and also Please tell me why We can not print this report in Preview???
  • Options
    krikikriki Member, Moderator Posts: 9,089
    [Topic moved from 'NAV/Navision Classic Client' forum to 'NAV Three Tier' forum]
    Regards,Alain Krikilion
    No PM,please use the forum. || May the <SOLVED>-attribute be in your title!

  • Options
    clauslclausl Member Posts: 455
    We have described how you can control the print button here:
    http://msdn.microsoft.com/en-us/library/dd301398.aspx

    But you might also want to checkout this blog post out for how to save as PDF.
    http://blogs.msdn.com/b/nav/archive/2009/10/08/send-email-with-pdf-attachment-in-nav-2009.aspx

    An updated version of SendAsPDF with use of a codeunit, which does NOT require to hardcode the SERVERNAME as on the blog post can be found here:
    Also notice that the "SendEmailPDF" icon I use in this new example is new for NAV 2009 R2, so if you are not using NAV 2009 R2, you will not get a fancy PDF icon on the Action in page 143.
    OBJECT Codeunit 70000 ReportHelper
{
  OBJECT-PROPERTIES
  {
    Date=07-10-09;
    Time=23:35:14;
    Version List=CLAUSL_DemoReports;
  }
  PROPERTIES
  {
    OnRun=BEGIN
          END;

  }
  CODE
  {

    PROCEDURE DownloadToClientFileName@1(ServerFileName@1000 : Text[250];ToFile@1006 : Text[250]) : Text[250];
    VAR
      ClientFileName@1001 : Text[250];
      objScript@1002 : Automation "{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC} 1.0:{0E59F1D5-1FBE-11D0-8FF2-00A0D10038BC}:'Microsoft Script Control 1.0'.ScriptControl";
      CR@1003 : Text[1];
    BEGIN
      ClientFileName := ToFile;
      IF NOT DOWNLOAD(ServerFileName, '', '<TEMP>','', ClientFileName) THEN
        EXIT('');
      IF CREATE(objScript,TRUE,TRUE) THEN
      BEGIN
        CR := ' '; CR[1] := 13;
        objScript.Language := 'VBScript';
        objScript.AddCode(
        'function RenameTempFile(fromFile, toFile)'+CR+
        'set fso = createobject("Scripting.FileSystemObject")'+CR+
        'set x = createobject("Scriptlet.TypeLib")'+CR+
        'path = fso.getparentfoldername(fromFile)'+CR+
        'toPath = path+"\"+left(x.GUID,38)'+CR+
        'fso.CreateFolder toPath'+CR+
        'fso.MoveFile fromFile, toPath+"\"+toFile'+CR+
        'RenameTempFile = toPath'+CR+
        'end function');
        ClientFileName := objScript.Eval('RenameTempFile("'+ClientFileName+'","'+ToFile+'")');
        ClientFileName := ClientFileName+'\'+ToFile;
      END;
      EXIT(ClientFileName);
    END;

    BEGIN
    END.
  }
}

OBJECT Page 143 Posted Sales Invoices
{
  OBJECT-PROPERTIES
  {
    Date=24-03-11;
    Time=21:53:52;
    Modified=Yes;
    Version List=CLAUSL_DemoReports;
  }
  PROPERTIES
  {
    Editable=No;
    CaptionML=ENU=Posted Sales Invoices;
    SourceTable=Table112;
    PageType=List;
    CardFormID=Page132;
    ActionList=ACTIONS
    {
      { 1900000003;0 ;ActionContainer;
                      ActionContainerType=RelatedInformation }
      { 19      ;1   ;ActionGroup;
                      CaptionML=ENU=&Invoice }
      { 26      ;2   ;Action    ;
                      ShortCutKey=Shift+F7;
                      CaptionML=ENU=Card;
                      Image=EditLines;
                      OnAction=BEGIN
                                 FORM.RUN(FORM::"Posted Sales Invoice",Rec)
                               END;
                                }
      { 31      ;2   ;Action    ;
                      ShortCutKey=F7;
                      CaptionML=ENU=Statistics;
                      RunObject=Page 397;
                      RunFormLink=No.=FIELD(No.);
                      Promoted=Yes;
                      Image=Statistics;
                      PromotedCategory=Process }
      { 32      ;2   ;Action    ;
                      CaptionML=ENU=Co&mments;
                      RunObject=Page 67;
                      RunFormLink=Document Type=CONST(Posted Invoice),
                                  No.=FIELD(No.);
                      Image=ViewComments }
      { 1102601000;2 ;Action    ;
                      CaptionML=ENU=Dimensions;
                      RunObject=Page 547;
                      RunFormLink=Table ID=CONST(112),
                                  Document No.=FIELD(No.),
                                  Line No.=CONST(0);
                      Image=Dimensions }
      { 1900000004;0 ;ActionContainer;
                      ActionContainerType=ActionItems }
      { 1102601004;1 ;ActionGroup;
                      CaptionML=ENU=F&unctions }
      { 1102601005;2 ;Action    ;
                      CaptionML=ENU=&Send BizTalk Sales Invoice;
                      OnAction=VAR
                                 BizTalkManagement@1001 : Codeunit 99008508;
                               BEGIN
                                 BizTalkManagement.SendSalesInvoice(Rec);
                               END;
                                }
      { 20      ;1   ;Action    ;
                      Ellipsis=Yes;
                      CaptionML=ENU=&Print;
                      Promoted=Yes;
                      Image=Print;
                      PromotedCategory=Process;
                      OnAction=BEGIN
                                 CurrPage.SETSELECTIONFILTER(SalesInvHeader);
                                 SalesInvHeader.PrintRecords(TRUE);
                               END;
                                }
      { 25      ;1   ;Action    ;
                      CaptionML=ENU=&Navigate;
                      Promoted=Yes;
                      Image=Navigate;
                      PromotedCategory=Process;
                      OnAction=BEGIN
                                 Navigate;
                               END;
                                }
      { 1170000000;1 ;Action    ;
                      Name=<Action1170000000>;
                      CaptionML=ENU=SendAsPDF;
                      Promoted=Yes;
                      PromotedIsBig=Yes;
                      Image=SendEmailPDF;
                      PromotedCategory=Process;
                      OnAction=BEGIN
                                 CurrPage.SETSELECTIONFILTER(SalesInvHeader);
                                 Name := STRSUBSTNO('Invoice No. %1.pdf', "No.");
                                 Tofile := Name;
                                 FileName := TEMPORARYPATH + Tofile;
                                 REPORT.SAVEASPDF(REPORT::"Sales - Invoice", FileName, SalesInvHeader);
                                 Tofile := ReportHelper.DownloadToClientFileName(FileName, Tofile);
                                 Mail.NewMessage('','',Name,'',Tofile,TRUE);
                                 FILE.ERASE(FileName);
                               END;
                                }
    }
  }
  CONTROLS
  {
    { 1900000001;0;Container;
                ContainerType=ContentArea }

    { 1   ;1   ;Group     ;
                GroupType=Repeater }

    { 2   ;2   ;Field     ;
                SourceExpr="No." }

    { 4   ;2   ;Field     ;
                SourceExpr="Sell-to Customer No." }

    { 6   ;2   ;Field     ;
                SourceExpr="Sell-to Customer Name" }

    { 37  ;2   ;Field     ;
                SourceExpr="Currency Code" }

    { 13  ;2   ;Field     ;
                SourceExpr=Amount;
                OnDrillDown=BEGIN
                              SETRANGE("No.");
                              FORM.RUNMODAL(FORM::"Posted Sales Invoice",Rec)
                            END;
                             }

    { 15  ;2   ;Field     ;
                SourceExpr="Amount Including VAT";
                OnDrillDown=BEGIN
                              SETRANGE("No.");
                              FORM.RUNMODAL(FORM::"Posted Sales Invoice",Rec)
                            END;
                             }

    { 27  ;2   ;Field     ;
                SourceExpr="Sell-to Post Code";
                Visible=FALSE }

    { 23  ;2   ;Field     ;
                SourceExpr="Sell-to Country/Region Code";
                Visible=FALSE }

    { 35  ;2   ;Field     ;
                SourceExpr="Sell-to Contact";
                Visible=FALSE }

    { 147 ;2   ;Field     ;
                SourceExpr="Bill-to Customer No.";
                Visible=FALSE }

    { 145 ;2   ;Field     ;
                SourceExpr="Bill-to Name";
                Visible=FALSE }

    { 33  ;2   ;Field     ;
                SourceExpr="Bill-to Post Code";
                Visible=FALSE }

    { 29  ;2   ;Field     ;
                SourceExpr="Bill-to Country/Region Code";
                Visible=FALSE }

    { 129 ;2   ;Field     ;
                SourceExpr="Bill-to Contact";
                Visible=FALSE }

    { 125 ;2   ;Field     ;
                SourceExpr="Ship-to Code";
                Visible=FALSE }

    { 123 ;2   ;Field     ;
                SourceExpr="Ship-to Name";
                Visible=FALSE }

    { 21  ;2   ;Field     ;
                SourceExpr="Ship-to Post Code";
                Visible=FALSE }

    { 17  ;2   ;Field     ;
                SourceExpr="Ship-to Country/Region Code";
                Visible=FALSE }

    { 113 ;2   ;Field     ;
                SourceExpr="Ship-to Contact";
                Visible=FALSE }

    { 109 ;2   ;Field     ;
                SourceExpr="Posting Date";
                Visible=FALSE }

    { 69  ;2   ;Field     ;
                SourceExpr="Salesperson Code";
                Visible=FALSE }

    { 91  ;2   ;Field     ;
                SourceExpr="Shortcut Dimension 1 Code";
                Visible=FALSE }

    { 89  ;2   ;Field     ;
                SourceExpr="Shortcut Dimension 2 Code";
                Visible=FALSE }

    { 93  ;2   ;Field     ;
                Name=<Location Cvoode>;
                SourceExpr="Location Code";
                Visible=TRUE }

    { 8   ;2   ;Field     ;
                SourceExpr="No. Printed" }

    { 1102601001;2;Field  ;
                SourceExpr="Document Date";
                Visible=FALSE }

    { 1102601003;2;Field  ;
                SourceExpr="Payment Terms Code";
                Visible=FALSE }

    { 1102601007;2;Field  ;
                SourceExpr="Due Date";
                Visible=FALSE }

    { 1102601009;2;Field  ;
                SourceExpr="Payment Discount %";
                Visible=FALSE }

    { 1102601011;2;Field  ;
                SourceExpr="Shipment Method Code";
                Visible=FALSE }

    { 1102601013;2;Field  ;
                SourceExpr="Shipment Date";
                Visible=FALSE }

    { 1900000007;0;Container;
                ContainerType=FactBoxArea }

    { 1900383207;1;Part   ;
                Visible=FALSE;
                PartType=System;
                SystemPartID=RecordLinks }

    { 1905767507;1;Part   ;
                Visible=TRUE;
                PartType=System;
                SystemPartID=Notes }

  }
  CODE
  {
    VAR
      SalesInvHeader@1000 : Record 112;
      Tofile@1102601000 : Text[250];
      PdfDownloaded@1102601001 : Boolean;
      ExcelDownloaded@1102601002 : Boolean;
      FileName@1170000000 : Text[250];
      Mail@1170000001 : Codeunit 397;
      Name@1170000002 : Text[30];
      ReportHelper@1170000003 : Codeunit 70000;

    BEGIN
    END.
  }
}

    Regards,
    Claus
    Claus Lundstrøm | MVP | Senior Product Manager | Continia.com
    I'm blogging here:http://mibuso.com/blogs/clausl and used to blog here: http://blogs.msdn.com/nav
    I'm also offering RDLC Report Training, ping me if you are interested. Thanks to the 700 NAV developers that have now already been at my training. You know you can always call if you have any RDLC report issues :-)
Sign In or Register to comment.