Reverse Pages on Output?

[chads]

Is there a way to print the file in reverse order? For instance, record 1, 2, 3 to export as 3, 2, 1. We can go back to the data export, but would be nice if there was a quick way to do that in Fusion Pro. Any help would be appreciated.

[chads]

Is there a way to print the file in reverse order? For instance, record 1, 2, 3 to export as 3, 2, 1. We can go back to the data export, but would be nice if there was a quick way to do that in Fusion Pro. Any help would be appreciated.

 

Nothing? I really don't want to go back to the original data.

[MHardee]

Nothing? I really don't want to go back to the original data.

On most printers (high speed anyway) you usually have a stacking option that is labeled N-1 or 1-N which will reverse the print order. Check your printer for that. Other than that, It's back to data, I suppose.

May Dan has some magical JavaScript that does it?

 

Answers have been very sparce as of late for some reason... I don't think people go to a forum as much as they would look at emails as the list was before..

 

I, however, prefer this arena... except for the lack of answers.

 

Mark

[sdelp]

This script would modify your data file. The catch is that I am not very fluent in Javascript but am in VBScript so here is a solution in VBScript.

 

'========================================================
' Declare variables
'========================================================
Dim fso, f1, f2, ie, InputFileName, OutputFileName, Inputdata, Counter, aryRev, i
'========================================================
' Initializes FSO and Internet Explorer
'========================================================
Set fso = CreateObject("Scripting.FileSystemObject")
Set ie = WScript.CreateObject("InternetExplorer.Application")
'========================================================
' Error checking for Input and Output files
'========================================================
Do
 InputFileName = Inputbox("Please enter your Input File Name!","Enter Input File Name")
 If fso.FileExists(InputFileName) = False then
   MsgBox "Please enter a valid Input File Name!", vbCritical
   InputFilename = ""
 End If
Loop Until Len(InputFilename) > 0
Do
 OutputFileName = InputBox("Please enter your Output File Name!","Enter Output File Name")
Loop Until Len(OutputFileName) > 0
'========================================================
' Set up Internet Explorer
'========================================================
ie.Navigate "about:blank" : ie.ToolBar = 0 : ie.StatusBar = 0 : ie.Width=500
ie.Height = 250 : ie.Left = 250 : ie.Top = 250 : ie.MenuBar = False : ie.StatusBar = False 
'========================================================
' Waits for Internet Explorer to be loaded into memory
'========================================================
Do While (ie.Busy)
 Wscript.Sleep 100
Loop
'========================================================
' Shows Internet Explorer and creates the window's title
'========================================================
ie.Visible = True
ie.Document.Title = fso.GetBaseName(InputFileName) & " ---> " & _
fso.GetBaseName(OutputFileName)
'========================================================
' Opens files for processing
'========================================================
Set f1 = fso.OpenTextFile(InputFileName,1)
Set f2 = fso.OpenTextFile(OutputFileName,2,True)
Counter = 0
'=================================================================
' Loops through the entire file reversing it and displays progress
'=================================================================
 aryRev = Split(f1.readall,vbcrlf)
 For i = (UBound(aryRev) - 1) To LBound(aryRev) Step -1
   Counter = Counter + 1
   If Counter Mod 1733 = 0 Then
     ie.Document.Body.InnerHTML = "<font color=blue>Processing Record: " & Counter
   End If
   f2.WriteLine aryRev(i)
 Next
ie.Document.Body.InnerHTML = "<font color=blue>Processing Record: " & Counter
'========================================================
' Closes and clears all objects from memory
'========================================================
f1.Close
f2.Close
Set aryRev = Nothing
Set fso = Nothing
Set f1 = Nothing
Set f2 = Nothing
'========================================================
' Prompts the user of completion
'========================================================
ie.Document.Body.InnerHTML = "<font color=blue>Program Complete!"
Wscript.Quit

[sdelp]

Also, most front end software on your digital press with allow you to do this as well. We had a Kodak NexPress and traded it in for a Kodak M700 and both had front end software that allowed us to do this. Thanks.

[gattaca714]

start="600";
LeadingZero="000000";


new_val = start-0+1

return FormatNumber(LeadingZero, new_val - CurrentRecordNumber());

 

This is what I use when I want to do numbering in the reverse order without importing a data file.

 

In my example, I want to 600 total records. But when I print it I want it to come out 600,599,598,597,596...ect.

 

This code works.

[rpaterick]

Do you input the data for the range?

What RIP are you using?

 

- If you are supplied the data file then your only hope besides Dan outputting reverse would to have a RIP do this for you at the Press.

 

- If you can put the range in, gattaca714 suggestion would work perfect then.