RTC Report Header Printing two Pages

sameerar · 2011-03-23

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

sameerar · 2011-03-23

and also in the Report preview there is not print Option,Excel export option available. Please check the Screen shot.

mohana_cse06 · 2011-03-23

Can you show the Report Layout?

sameerar · 2011-03-23

Here with i have the attachment..

mohana_cse06 · 2011-03-23

why did you have lot of space at right side?

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

sameerar · 2011-03-23

Thanks Mohana, and also Please tell me why We can not print this report in Preview???

kriki · 2011-03-24

[Topic moved from 'NAV/Navision Classic Client' forum to 'NAV Three Tier' forum]

clausl · 2011-03-24

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

RTC Report Header Printing two Pages

Comments

Categories