Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community

At 06 AUG 2008 11:47:27AM W Shepard wrote:

We have some new Canon printers here. They have four bins. There isn't an "upper", "lower" and "middle" bin.

I ran the following code and all reports printed from bin 1. When the variable i was equal to 1,2,3,4 and 7, no error code was returned.

for i=1 to 12

 Set_Printer('INIT','','','','',0:@VM:0,Printer)
 test=Set_Printer('PAPERBIN',i)
 if test < 0 then
    call msg(@window,'Cannot support bins')
 end
 Set_Printer('TEXTXY','This is a test of number ':i:'.',1:@FM:1)
 Set_Printer("TERM")

next i

It looks like the number sent would match the bin chosen, but I don't know what's going on inside OIPI. Is there a solution to this?

Thanks,

Wayne


At 06 AUG 2008 12:09PM Dave Harmacek wrote:

You can get a program from Revelation that will report the "actual" paperbin numbers of a printer. Then you can use those to get proper results. try Bob Orsini for this.


At 07 AUG 2008 09:43PM Barry Stevens wrote:

Try this for you bin number testing.

You need a pagebreak after setting PAPERBIN…which makes the program logic a bit messy.

The numbers should lineup with the bins in OIPI_EQUATES

Set_Printer('INIT',,,,,0:@VM:0)

for i=1 to 12

test=Set_Printer('PAPERBIN',i)
if test < 0 then
  call msg(@window,'Cannot support bins ':i)
end else
  set_printer("PAGEBREAK")
  Set_Printer('TEXTXY','This is a test of number ':i:'.',1:@FM:1)
end

next i

Set_Printer("TERM")


At 08 AUG 2008 01:44AM Matthew Jones wrote:

I have some code for this that I'm happy to post onto the http://openinsight.wetpaint.com/ wiki site.

Unfortunately, the "attach" feature isn't visibe to me, even though I've signed in and created a page.

Does anyone know the right method?

Thanks.


At 08 AUG 2008 08:40AM Dave Harmacek wrote:

The bin numbers I needed for a HP 4350 are not in the equates. We print to 4 bins during a print run(snipped from my app):

  if index( currentprinter, "4350", 1) then
    Tray4=259
    Tray3=260
    Tray2=261
    Tray1=262
  end

The program supplied by Revelation was named PAPERBINS.EXE and was dated 12/29/2005. I'm not comfortable with posting this program without their permission.


At 11 AUG 2008 07:59AM Bob Orsini wrote:

The VB code for the paperbin.exe can be found on http://support.microsoft.com/kb/194789.

View this thread on the Works forum...

  • third_party_content/community/commentary/forums_works/b350cf121111f0e38525749d0056bde6.txt
  • Last modified: 2023/12/30 11:57
  • by 127.0.0.1