Hi Morten,
31-Oct-95 23:06, Morten Christensen wrote to Mike Chambers Subject:
TSEBOOK 1.10
 MC> But I miss an option, without printing on the back side of
 MC> the sheets.
 MC> A simple straight forward printing style is needed as an
 MC> alternative to your 2 advanced styles.
/*
Only minimal changes are necessary to turn it into a simple 2-up
print formatter. Is that what you want?
Try this. It's not an enhancement: it's destructive. Sorry Mike!
in proc InitBooklet()
 change things to look like this:
   if page Mod 4                          // If page isn't multiple of
      // page = page + (4 - page Mod 4)   // four, round up
      page = page + 1
   endif
changes in:
proc PrintBooklet()
   integer p                             // Page to print
   integer halfway
   integer cb  = GetBufferId()           // current bufferid
   //p = -1
   p = 0
   //halfway = page / 2                  // calc front/back breakpoint
   Repeat                                // Print right side (odd) first
     //p = p + 2                         // skip the even pages
     p = p + 1                           // skip the even pages
     If GetPage(p)                       // If blank, then skip it
     // SetForRightPage()                // Set margins for right side
        SetForLeftPage()                 // Set margins for left side
        AddPageBlock()                   // Print the right page
     endif
     //If GetPage(1 + page - p)          // Don't print blank pages
     p = p + 1                           // skip the even pages
     If GetPage(p)                       // Don't print blank pages
     // SetForLeftPage()                 // Set margins for left side
        SetForRightPage()                // Set margins for right side
        AddPageBlock()                   // Print the left side (even)
     endif
     AddString(FF)                       // Eject physical page
  // if p + 2 == halfway + 1             // When half finished
  //    GotoBufferId(BookletBuffer)      // print the buffer
  //    PrintFile()
  //    EmptyBuffer()                    // Empty it for the backside
  //    BookletPrinterSetup()            // Re-Init the printer in case
  //    GotoBufferId(cb)                 // the setup was cleared
  //    Warn(ReInsertMessage)            // wait for user to reload
  //    message("Printing Side 2 ")      // pages, then proceed
  // endif
   //Until p + 2 > page
   Until p + 1 > page
   etc... (rest unchanged)
Once more: this does NOT enhance Mike's stuff, it disables part of it.
*/
-=-=-=- I will gladly pay you tomorrow for a hamburger today
Peter VanZeeland 100647.1507@compuserve.com
___ Terminate 1.50/Pro
---------------