Reverse Pages on Output?

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.

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.

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

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

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.

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.

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.