Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] remove blank line between report heading and data [EXCEL]

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[CLOSED] remove blank line between report heading and data [EXCEL]
 Login/Join
 
Member
posted
I don't want the line break after heading or subhead for excel report. How can I do this ?

eg.
Result:
HEADING
-------

Col1 Col2 Col3

What I want:
HEADING
-------
Col1 Col2 Col3

This message has been edited. Last edited by: FP Mod Chuck,


WebFOCUS 8.1.05M
Windows, Excel , CSV Outputs
 
Posts: 8 | Registered: November 28, 2017Report This Post
Platinum Member
posted Hide Post
quote:
I don't want the line break after heading or subhead for excel report. How can I do this ?


Try this code,
 TABLE FILE CAR
PRINT 
     CAR.ORIGIN.COUNTRY
     CAR.COMP.CAR
HEADING
"CAR REPORT"
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
TYPE=TITLE,
     COLOR='BLACK',
     BACKCOLOR='SILVER',
$
TYPE=HEADING,
     JUSTIFY=CENTER,
$
ENDSTYLE
END
 


or refer this link blankline


WF Production :- WF:8.0.0.4, 8.1.05 App-studio/Developer Studio(8.1.x) ,
8.2.0.1M , 8.2.0.2 (App-Studio8.2.x),
InfoAssist/+, InfoDiscovery
Output format:-AHTML, PDF, Excel, HTML
Platform:-Windows 7, 8,10
 
Posts: 186 | Location: Infobuild India | Registered: August 28, 2015Report This Post
Master
posted Hide Post
Almost everything we do is Excel and I've never seen a blank line between the column titles and the data, headings and data or subheadings and data unless I put one there. The only exception maybe when there is an ACROSS sort element.


In FOCUS since 1985. Prod WF 8.0.08 (z90/Suse Linux) DB (Oracle 11g), Self Serv, Report Caster, WebServer Intel/Linux.
 
Posts: 975 | Location: Oklahoma City | Registered: October 27, 2006Report This Post
Member
posted Hide Post
When I put the border to heading or data, blank line has been added between the heading and the report data.

With no border:

HEADING
Col1 Col2 Col3

With border-bottom:
HEADING
--------------

Col1 Col2 Col3

I want the output with border-bottom and no blank line between the heading and the report data.


WebFOCUS 8.1.05M
Windows, Excel , CSV Outputs
 
Posts: 8 | Registered: November 28, 2017Report This Post
Platinum Member
posted Hide Post
quote:
When I put the border to heading or data, blank line has been added between the heading and the report data.


Yes, If you will add border than above code does not work.


WF Production :- WF:8.0.0.4, 8.1.05 App-studio/Developer Studio(8.1.x) ,
8.2.0.1M , 8.2.0.2 (App-Studio8.2.x),
InfoAssist/+, InfoDiscovery
Output format:-AHTML, PDF, Excel, HTML
Platform:-Windows 7, 8,10
 
Posts: 186 | Location: Infobuild India | Registered: August 28, 2015Report This Post
Master
posted Hide Post
We use formatting macros with Excel. I've never gotten borders in WebFOCUS to work the way I want so I do all of my borders in the formatting macro.


In FOCUS since 1985. Prod WF 8.0.08 (z90/Suse Linux) DB (Oracle 11g), Self Serv, Report Caster, WebServer Intel/Linux.
 
Posts: 975 | Location: Oklahoma City | Registered: October 27, 2006Report This Post
Member
posted Hide Post
>>Mr.jgelona

Is it to run with a macro template? or something ?

Can you give me a some sample code?


WebFOCUS 8.1.05M
Windows, Excel , CSV Outputs
 
Posts: 8 | Registered: November 28, 2017Report This Post
Master
posted Hide Post
    ON TABLE PCHOLD FORMAT XLSX TEMPLATE 'yi104.xltm' SHEETNUMBER 1


yi104.xltm is an Excel Macro Enabled Template file. The macro is named 'Auto_Open'. With this name the macro runs automatically when the workbook opens.

Here's the macro

Sub Auto_Open()
  Application.ScreenUpdating = False
  Application.PrintCommunication = False
  For Each ws In Worksheets
    With ws
      If ws.Name = "Sheet1" Then
' get the number of columns and number of row
        ws_last_col = Cells.SpecialCells(xlLastCell).Column
        ws_last_row = Cells.SpecialCells(xlLastCell).Row
' rename Sheet1
        Sheets("Sheet1").Name = "YI104"
' turn wrap text off for all data starting in row 7 except column 45
        Range(Cells(7, 1), Cells(ws_last_row, 44)).Select
        Selection.WrapText = False
        Range(Cells(7, 46), Cells(ws_last_row, ws_last_col)).Select
        Selection.WrapText = False
' set rowheight for column title
        Range("A6").Select
        Selection.RowHeight = 105
' for all rows starting with the column titles, change all ':' to Line Feed
        Range(Cells(6, 1), Cells(6, ws_last_col)).Select
        Selection.Replace What:=":", Replacement:="" & Chr(10) & ""
' draw borders
        Call borders 
' rotate selected column titles 90 degrees
        Range("A6,B6,R6,S6,V6:X6,Z6,AE6:AI6,AK6:AN6,AZ6,BG6,BH6").Select
        Selection.Orientation = 90
' vertically center and autofit columwidth
        Range(Cells(6, 1), Cells(ws_last_row, ws_last_col)).Select
        Selection.VerticalAlignment = xlCenter
        Selection.Columns.AutoFit
' turn on filters
        Range(Cells(6, 1), Cells(6, ws_last_col)).Select
        Selection.AutoFilter
' freeze panes
        Range("A7").Select
        ActiveWindow.FreezePanes = True
      End If
    End With
  Next
  Application.PrintCommunication = True
  Application.ScreenUpdating = True
End Sub
Sub borders()
  Selection.borders(xlDiagonalDown).LineStyle = xlNone
  Selection.borders(xlDiagonalUp).LineStyle = xlNone
  Selection.borders(xlEdgeLeft).Weight = xlThin
  Selection.borders(xlEdgeTop).Weight = xlThin
  Selection.borders(xlEdgeBottom).Weight = xlThin
  Selection.borders(xlEdgeRight).Weight = xlThin
  Selection.borders(xlInsideVertical).Weight = xlThin
  Selection.borders(xlInsideHorizontal).Weight = xlThin
End Sub


This is a basic macro, we have many that are far more involved.


In FOCUS since 1985. Prod WF 8.0.08 (z90/Suse Linux) DB (Oracle 11g), Self Serv, Report Caster, WebServer Intel/Linux.
 
Posts: 975 | Location: Oklahoma City | Registered: October 27, 2006Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] remove blank line between report heading and data [EXCEL]

Copyright © 1996-2020 Information Builders