Syntax for Page Break

[james.moffitt]

What is the syntax for inserting a page break in output so that the
output of the next procedure starts on a new page? Thanks.

====================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

[la volta statistics]

Hi James

you could use a script and invoke the script with a line of syntax (see
example below).

If you have saved the script e.g. on
C:\Programme\SPSS\Scripts\ChangeViewer\Add_PageBrake.sbs
you can use the syntax:
SCRIPT file="C:\Programme\SPSS\Scripts\ChangeViewer\Add_PageBrake.sbs".
to add the page break.
Hope this helps.
Christian

'START Script.
Option Explicit
Sub Main
Dim objOutputDoc As ISpssOutputDoc
Dim objItems As ISpssItems
Dim objitem As ISpssItem
Dim i As Integer

'Acrtivate the script by using the following syntax
'SCRIPT file="C:\Programme\SPSS\Scripts\ChangeViewer\Add_PageBrake.sbs".

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
'END Script.

-----Ursprungliche Nachricht-----
Von: SPSSX(r) Discussion [mailto:[hidden email]]Im Auftrag von
[hidden email]
Gesendet: Freitag, 6. Juni 2008 22:20
An: [hidden email]
Betreff: Syntax for Page Break


What is the syntax for inserting a page break in output so that the
output of the next procedure starts on a new page? Thanks.

=======
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

[Art Kendall]

do if $casenum eq 1.
print eject.
end if.
execute.
This seems to be the rare occasion where execute is necessary IFF you
want the page break before the print back of the syntax.

If you want the page break before the output but after the print back of
the syntax, drop the execute and the print eject will be executed as
SPSS starts to read the data.

Art Kendall
Social Research Consultants

la volta statistics wrote:

> Hi James
>
> you could use a script and invoke the script with a line of syntax (see
> example below).
>
> If you have saved the script e.g. on
> C:\Programme\SPSS\Scripts\ChangeViewer\Add_PageBrake.sbs
> you can use the syntax:
> SCRIPT file="C:\Programme\SPSS\Scripts\ChangeViewer\Add_PageBrake.sbs".
> to add the page break.
> Hope this helps.
> Christian
>
> 'START Script.
> Option Explicit
> Sub Main
> Dim objOutputDoc As ISpssOutputDoc
> Dim objItems As ISpssItems
> Dim objitem As ISpssItem
> Dim i As Integer
>
> 'Acrtivate the script by using the following syntax
> 'SCRIPT file="C:\Programme\SPSS\Scripts\ChangeViewer\Add_PageBrake.sbs".
>
> 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
> 'END Script.
>
> -----Ursprungliche Nachricht-----
> Von: SPSSX(r) Discussion [mailto:[hidden email]]Im Auftrag von
> [hidden email]
> Gesendet: Freitag, 6. Juni 2008 22:20
> An: [hidden email]
> Betreff: Syntax for Page Break
>
>
> What is the syntax for inserting a page break in output so that the
> output of the next procedure starts on a new page? Thanks.
>
> =======
> 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
>
>
>

=====================
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

[Henrik Lolle]

You could also just "print" an empty title line between procedures.

Best,
Henrik

Quoting Art Kendall <[hidden email]>:

> do if $casenum eq 1.
> print eject.
> end if.
> execute.
> This seems to be the rare occasion where execute is necessary IFF you
> want the page break before the print back of the syntax.
>
> If you want the page break before the output but after the print back of
> the syntax, drop the execute and the print eject will be executed as
> SPSS starts to read the data.
>
> Art Kendall
> Social Research Consultants
>
> la volta statistics wrote:
>> Hi James
>>
>> you could use a script and invoke the script with a line of syntax (see
>> example below).
>>
>> If you have saved the script e.g. on
>> C:\Programme\SPSS\Scripts\ChangeViewer\Add_PageBrake.sbs
>> you can use the syntax:
>> SCRIPT file="C:\Programme\SPSS\Scripts\ChangeViewer\Add_PageBrake.sbs".
>> to add the page break.
>> Hope this helps.
>> Christian
>>
>> 'START Script.
>> Option Explicit
>> Sub Main
>> Dim objOutputDoc As ISpssOutputDoc
>> Dim objItems As ISpssItems
>> Dim objitem As ISpssItem
>> Dim i As Integer
>>
>> 'Acrtivate the script by using the following syntax
>> 'SCRIPT file="C:\Programme\SPSS\Scripts\ChangeViewer\Add_PageBrake.sbs".
>>
>> 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
>> 'END Script.
>>
>> -----Ursprungliche Nachricht-----
>> Von: SPSSX(r) Discussion [mailto:[hidden email]]Im Auftrag von
>> [hidden email]
>> Gesendet: Freitag, 6. Juni 2008 22:20
>> An: [hidden email]
>> Betreff: Syntax for Page Break
>>
>>
>> What is the syntax for inserting a page break in output so that the
>> output of the next procedure starts on a new page? Thanks.
>>
>> =======
>> 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
>>
>>
>>
>
> =====================
> 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
>

************************************************************
Henrik Lolle
Department of Economics, Politics and Public Administration
Aalborg University
Fibigerstraede 1
9200 Aalborg
Phone: [phone]
************************************************************

=====================
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