Page break before an output element

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Page break before an output element

Jaosn
Does anyone know of a script that will put a page break before a selected
output element (chart, table, etc.)?

I have found one that puts a page break before the text '/page break' in a
table's title, but this is not helpful for charts or other non table
entities.

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD
Reply | Threaded
Open this post in threaded view
|

AW: Page break before an output element

la volta statistics
Hi Jason

I use a script that I activate with a syntax command. It just adds a page
break to the very last object (chart, table title, etc.) in the output
viewer. So for example: if you want to have a chart on a new page, you just
include the syntax after the chart command. Change the path in the syntax
according to where you store the scrip file.

Hope this helps
Christian

*******************************
la volta statistics
Christian Schmidhauser, Dr.phil.II
Weinbergstrasse 108
Ch-8006 Zürich
Tel: +41 (043) 233 98 01
Fax: +41 (043) 233 98 02
email: mailto:[hidden email]
internet: http://www.lavolta.ch/


************************************
* The syntax part.
* my script is stored at: C:\Programme\SPSS\Scripts\ChangeViewer\V15.
************************************

SCRIPT file="C:\Programme\SPSS\Scripts\ChangeViewer\V15\Add_PageBrake.sbs".
Exec.

************************************
* The script part:
************************************

Option Explicit

Sub Main

Dim objOutputDoc        As ISpssOutputDoc
Dim objItems            As ISpssItems
Dim objitem             As ISpssItem
Dim i                   As Integer

  Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
  Set objItems = objOutputDoc.Items()

  i=objItems.Count

  Set objitem = objItems.GetItem(i -1)
  With objitem
   .PageBreak = True
  End With

  objitem.Deactivate
  Set objitem = Nothing
  Set objItems = Nothing
  Set objOutputDoc = Nothing

End Sub
-----Ursprüngliche Nachricht-----
Von: SPSSX(r) Discussion [mailto:[hidden email]]Im Auftrag von
Jason
Gesendet: Donnerstag, 29. November 2007 17:06
An: [hidden email]
Betreff: Page break before an output element


Does anyone know of a script that will put a page break before a selected
output element (chart, table, etc.)?

I have found one that puts a page break before the text '/page break' in a
table's title, but this is not helpful for charts or other non table
entities.

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD