How to address a printer's paper tray from Navision

medost wrote:

Then get the software "FindTrays" in order to get the correct ID of the tray.
medost

Hi Medost,

Do you know where to get "FindTrays", I have done a search on google, but it came up empty .

Thanks,
Gustav

Hi
Better late than never!

This problem cost me hours, so I hope this will help some people who are having the same:

I also haven't found an application called "FindTrays", but I found an VB-script wich gives you the binary number of all trays back.

http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q194789&

Create an Visual Studio 6 Form Project, place a Button and a Textbox with Multiline on. After that place that code:

Option Explicit

Private Declare Function DeviceCapabilities Lib "winspool.drv" _
   Alias "DeviceCapabilitiesA" (ByVal lpDeviceName As String, _
   ByVal lpPort As String, ByVal iIndex As Long, lpOutput As Any, _
   ByVal dev As Long) As Long

Private Const DC_BINS = 6
Private Const DC_BINNAMES = 12

Private Sub Command1_Click()
   Dim prn As Printer
   Dim dwbins As Long
   Dim ct As Long
   Dim nameslist As String
   Dim nextString As String
   Dim numBin() As Integer

   Text1.Font.Name = "Courier New"
   Text1.Font.Size = 12
   Text1.Text = ""
   For Each prn In Printers
        dwbins = DeviceCapabilities(prn.DeviceName, prn.Port, _
          DC_BINS, ByVal vbNullString, 0)
        ReDim numBin(1 To dwbins)
        nameslist = String(24 * dwbins, 0)
        dwbins = DeviceCapabilities(prn.DeviceName, prn.Port, _
          DC_BINS, numBin(1), 0)
        dwbins = DeviceCapabilities(prn.DeviceName, prn.Port, _
          DC_BINNAMES, ByVal nameslist, 0)
        If Text1.Text <> "" Then
           Text1.Text = Text1.Text & vbCrLf & vbCrLf
        End If
        Text1.Text = Text1.Text & prn.DeviceName
        For ct = 1 To dwbins
           nextString = Mid(nameslist, 24 * (ct - 1) + 1, 24)
           nextString = Left(nextString, InStr(1, nextString, _
             Chr(0)) - 1)
           nextString = String(6 - Len(CStr(numBin(ct))), " ") & _
           numBin(ct) & "  " & nextString
           Text1.Text = Text1.Text & vbCrLf & nextString
        Next ct
   Next prn
End Sub

Private Sub Form_Load()
   ' Size and position the Form and controls
   Me.Height = 7000
   Me.Width = 7000
   Text1.Top = 100
   Text1.Left = 100
   Text1.Height = 6450
   Text1.Width = 5000
   Text1.Text = ""   ' Clear the TextBox
   Command1.Left = 5300
   Command1.Top = 1000
   Command1.Width = 1500
   Command1.Caption = "List Bins"
End Sub

After clicking on "List Bins" you'll see a list of all your installed printers with their trays and bin-numbers.

Example:

\\server\HP4000PCL
15 Automatically Select
262 Auto Select
261 Tray 1
260 Tray 2
259 Tray 3
258 Tray 4
257 Manual Feed (Tray 1)
5 Envelope Feeder

Place this code at the beginning of your report:

CurrReport.PAPERSOURCE := PaperSource;

PaperSource is an Integer wich is in the request form.
For Tray 2 in this case, just enter 260 as PaperSource.

If you want to give the customers the ability to do that, you could write an COM-Api and generate an own Listbox with the right trays!
But that's another story

Have Fun!
Greetings
Lorry

see
http://dotnet-halle.blogspot.com/2006/02/navision-report-in-bestimmten.html for C#-Code

Or you can try out this one :
http://www.oraxcel.com/projects/printertrays/

Timo Lässer wrote:

Kowa wrote:

Or you can try out this one :
http://www.oraxcel.com/projects/printertrays/

Is that another one than we know?

I haven't used FindTrays, PrinterTrays is the only one I know.