URGENT VB Code for selecting paper tray

[redav]

How do you populate a combo with the priter trays after selecting a printer from another combo

 

[cturland]

Hiya,

I've just posted an FAQ that might be able to help you a bit - take a look its FAQ 1b.

I guess you are trying to find out the number of the tray that the printer can accept. I'm looking for a function that can do that as well, at the moment its a bit of trial and error to see where the paper comes out - it seems to differ depending on the make of printer.

 

[bburnell]

Here's the code for Crystal Reports:

Select Case MyRpt.PaperSize
Case 1
TxtPaperSize.Text = "Letter, 8 1/2"" x 11"""
Case 2
TxtPaperSize.Text = "Letter Small, 8 1/2"" x 11"""
Case 3
TxtPaperSize.Text = "Tabloid, 11"" x 17"""
Case 4
TxtPaperSize.Text = "Ledger, 17"" x 11"""
Case 5
TxtPaperSize.Text = "Legal, 8 1/2"" x 14"""
Case 6
TxtPaperSize.Text = "Statement, 5 1/2"" x 8 1/2"""
Case 7
TxtPaperSize.Text = "Executive, 7 1/2"" x 10 1/2"""
Case 8
TxtPaperSize.Text = "A3, 297 x 420 mm"
Case 9
TxtPaperSize.Text = "A4, 210 x 297 mm"
Case 10
TxtPaperSize.Text = "A4 Small, 210 x 297 mm"
Case 11
TxtPaperSize.Text = "A5, 148 x 210 mm"
Case 12
TxtPaperSize.Text = "B4, 250 x 354 mm"
Case 13
TxtPaperSize.Text = "B5, 182 x 257 mm"
Case 14
TxtPaperSize.Text = "Folio, 8 1/2"" x 13"""
Case 15
TxtPaperSize.Text = "Quarto, 215 x 275 mm"
Case 16
TxtPaperSize.Text = "10"" x 14"""
Case 17
TxtPaperSize.Text = "11"" x 17"""
Case 18
TxtPaperSize.Text = "Note, 8 1/2"" x 11"""
Case 19
TxtPaperSize.Text = "Envelope #9, 3 7/8"" x 8 7/8"""
Case 20
TxtPaperSize.Text = "Envelope #10, 4 1/8"" x 9 1/2"""
Case 21
TxtPaperSize.Text = "Envelope #11, 4 1/2"" x 10 3/8"""
Case 22
TxtPaperSize.Text = "Envelope #12, 4 1/2"" x 11"""
Case 23
TxtPaperSize.Text = "Envelope #14, 5"" x 11 1/2"""
Case 24
TxtPaperSize.Text = "C size sheet"
Case 25
TxtPaperSize.Text = "D size sheet"
Case 26
TxtPaperSize.Text = "E size sheet"
Case 27
TxtPaperSize.Text = "Envelope DL, 110 x 220 mm"
Case 28
TxtPaperSize.Text = "Envelope C5, 162 x 229 mm"
Case 29
TxtPaperSize.Text = "Envelope C3, 324 x 458 mm"
Case 30
TxtPaperSize.Text = "Envelope C4, 229 x 324 mm"
Case 31
TxtPaperSize.Text = "Envelope C6, 114 x 162 mm"
Case 32
TxtPaperSize.Text = "Envelope C65, 114 x 229 mm"
Case 33
TxtPaperSize.Text = "Envelope B4, 250 x 353 mm"
Case 34
TxtPaperSize.Text = "Envelope B5, 176 x 250 mm"
Case 35
TxtPaperSize.Text = "Envelope B6, 176 x 125 mm"
Case 36
TxtPaperSize.Text = "Envelope, 110 x 230 mm"
Case 37
TxtPaperSize.Text = "Envelope Monarch, 3 7/8"" x 7 1/2"""
Case 38
TxtPaperSize.Text = "Envelope, 3 5/8"" x 6 1/2"""
Case 39
TxtPaperSize.Text = "U.S. Standard Fanfold, 14 7/8"" x 11"""
Case 40
TxtPaperSize.Text = "German Standard Fanfold, 8 1/2"" x 12"""
Case 41
TxtPaperSize.Text = "German Legal Fanfold, 8 1/2"" x 13"""
Case 256
TxtPaperSize.Text = "User-defined"
Case Else
TxtPaperSize.Text = "Default"
End Select

I hope this helps!
Brett Please visit my websites!

http://www.b2ksolutions.net

http://smsforce.virtualave.net

http://www.goodguyz.com