x Want to participate? Join the group to interact
Options
  • State Suggested Answer
  • Replies 5 replies
  • Answers 2 answers
  • Subscribers 88 subscribers
  • Views 4042 views
  • Users 0 members are here
Browse Forums
Announcements
293
topics
370
replies
Business Object Interface
1k
topics
7k
replies
Core Financial Modules
2k
topics
8k
replies
Customization and Productivity
3k
topics
12k
replies
Distribution, Manufacturing, and Applications
2k
topics
7k
replies
General Discussion
1k
topics
3k
replies
Partner Cloud
45
topics
92
replies
Payroll, Time Tracking, and Job Cost
777
topics
1k
replies
Reporting and Analytics
963
topics
3k
replies
Sage CRM for Sage 100
164
topics
357
replies
Technical and Installation
2k
topics
9k
replies
Year-end Forum
89
topics
237
replies
mmchico

Script to print crystal report to designated printer

SUGGESTED
Posted By

Everything works on the script except for the line that calls for the print

oRpt.Printout

(I tried oRpt.Printout(FALSE) but then nothing happens at all)

The line actually technically works, but instead of just printing the the default printer, the printer diolog box pops up and asks for a printer selection.

When OK is pressed the report prints.

I would like to avoid this step and have the report print without additional input.

i would also like to specify the printer if say for example the label printer is not their default printer.

thanks in advanced

Parents Reply Children
  • 0 in reply to BadgerJerry

    The code is as follows

    Path = "C:\Sage Software\V450\MAS90\Reports\1_VCI_label_CUSTOM.rpt"

    Set App = CreateObject("CrystalRuntime.Application")

    Set oSORpt = App.OpenReport(Path)

    Login = App.LogOnServerEx("p2sodbc.dll", "Sage 4.5", , , , ,"DSN="+ODBC+"; UID="+UID+"; PWD="+PWD+"; Directory="+Directory+"; Prefix="+Directory+"\SY\, "+Directory+"\==\; ViewDLL="+Directory+"\HOME; Company="+Company+"; LogFile=\PVXODBC.LOG; CacheSize=4; DirtyReads=1; BurstMode=1; StripTrailingSpaces=1; SERVER=NotTheServer")

    Set ParamFields = oSORpt.ParameterFields

    Set Serial = ParamFields.Item(1)

    Serial.SetCurrentValue(SerialNoIn)

    oSORpt.Printout

    The last line does print, but I am trying to print without having to select a printer.

    thanks

  • 0 in reply to mmchico

    The VBScript Crystal Report Wrapper has a setting to select a printer.  I haven't tried it, but here's the syntax:

    Rept.SelectPrinter cDriverName, cPrinterName, cPort

    Please post the solution back if you get it to work.

  • 0 in reply to BadgerJerry
    SUGGESTED

    WORKS!!!

    I had tried the line you mentioned (below) before and it was still prompting for a printer.

    oSOrpt.SelectPrinter cDriverName, cPrinterName, cPort

    I found that the .PrintOut line had to be set to NOT prompt by setting it to FALSE (see below)

    oSORpt.Printout(FALSE)

    Very slick script

    -A report was set up to print a label for a particular serial number.

    -A UDF was set up to read in a serial number

    -That serial number was then set as the report parameter and a label was automatically printed to the label printer.

    Now they can simply scan in the Serial number and the labels will print in one step.

*Community Hub is the new name for Sage City