Cannot send report directly to printer

Hi,
we are installing new canon printers (irc2380's) and we are having difficulty getting the reports to the printer.
If i send the output of the report as a file to the application server(solaris) and then print using an lp command then the report prints fine, however if we try to send the output directly to the printer, the report server thinks it has been successfull but nothing appears on the printer.
We are using run_report_object, have tried looking at the ppd files but cannot get any to work, canon do not seem to have any specific for unix.
Any help would be appreciated.
Thanks

Hello,
If the Reports Version is >= 9.0.2 , an output file has been generated in the Reports Server cache ($ORACLE_HOME/reports/cache by default)
and this file is sent to the printer with the script rwlpr.sh (in $ORACLE_HOME/bin)
Check the content of the file generated in the Reports cache, test to send it "manually' to the printer
Regards

Similar Messages

Send Report Directly To Printer Without using ORARRP?

Is their any other way to send report output directlly to printer from reports 10g running on Oracle IAS 10g without use of Orarrp?
I am asking this question because of some non-support issue with Orarrp mentioned by Oracle in documents.
Looking for yours help on this topic.
Thanks

within a forms trigger:
1. generate the report
2. copy from iAS to local
like: webutil_file_transfer.url_to_client()
3. print.exe /d:printer filename (for windows OS)

Error - Printing a report directly to printer

Hi,
i'm using oracle forms 9i and i'm trying to print a report directly to printer. I using the code above:
SET_REPORT_OBJECT_PROPERTY(ReportId,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(ReportId,REPORT_SERVER,GetReportTnsName);
IF ReportDesType = 'CACHE' THEN
SET_REPORT_OBJECT_PROPERTY(ReportId,REPORT_DESTYPE,CACHE);
ReportServerJob:=RUN_REPORT_OBJECT(ReportId, PList);
rep_status := report_object_status(ReportServerJob);
IF rep_status=âFINISHEDâ THEN
JobId := substr(ReportServerJob,length(GetReportTnsName)+2,length(ReportServerJob));
WEB.SHOW_DOCUMENT ('/reports/rwservlet/getjobid'||JobId||'?server='||GetReportTnsName,'_blank');
ELSE
message ('Errorâ);
END IF;
-- logic for sending report directly to printer
ELSIF ReportDesType = 'PRINTER' then
SET_REPORT_OBJECT_PROPERTY(ReportId,REPORT_DESTYPE,PRINTER);
SET_REPORT_OBJECT_PROPERTY(ReportId,REPORT_DESNAME,:parameter.p_print);
ReportServerJob:=RUN_REPORT_OBJECT(ReportId, PList);
rep_status := report_object_status(ReportServerJob);
IF rep_status=âFINISHEDâ THEN
message ('Report sent to printer successfully');
ELSE
--handle errors
message ('Errorâ);
END IF;
end if ;
i get this error :
REP-50157: Erro no envio do ficheiro para a impressora lp65. Sair com o cÃ³digo de erro 64
NEED HELP !!
Regards,

The printer has to be known on the server where the Reports service runs.
Also, the user who runs the Reports service has to have access to that printer. If you are running on Windows, Reports Service runs as Local system by default. Change that to a real (domain) user, who has access to the printer.

Can not print report directly to printer.

Hi,
We are using Crystal Report Server for reporting in our project.
The version we are using is Crystal Report Server XI R2 and Crystal Report Server XI R2 SP 2.
Please kindly advice us on the following issues we faced:
- Can not print report directly to printer.
The print button on the Crystal Report Viewer prints the report to pdf and user have to click "Print" again in the pdf file. This is unusual and not convenient. As we have hundreds of reports to print, is there a way we can print the reporrt directly to printer?
- "Set to Null"
In the default interface of the Crystal Report View, there's is this "set to null" check box that we can not remove. Is there a way to do without it?
Thank you,
Kenny Tew

Morning Kenny,
The printer settings are in server management console. Additionally see what settings you have setup for the printer for the report in the server. If it is setup to use End User printer then check your End user machine settings and make sure the printer is setup as a default printer on his/her machine.
Please let us know how you get along with the issue.
As far as "Set to Null" I am not sure where it is set up. A screenshot of it might help understanding it better?
Many thanks
Regards
Jehanzeb
Edited by: Jehanzeb Navid on Oct 6, 2008 11:07 AM
Is this issue on all computers or only one computer?
I have just tested this on my colleague machine and it asks for default printer and not pdf however on mine I setup for pdf.

Form 6i printing report directly to printer

Hi Professionals,
I am in badly need of help to print my barcode report directly to printer from form, currently it is working fine if i make it preview first and then user has to select network printer to print, but user is not accepting that manual step, and therefore we are unable to launch our material management module.
MY CURRENT CODE WHICH WORKING FINE WITH PREVIEW..................
add_parameter(PL_ID, 'DESTYPE', TEXT_PARAMETER, 'PREVIEW');
add_parameter(PL_ID, 'MAXIMIZE', TEXT_PARAMETER, 'YES');
add_parameter(pl_id,'paramform',TEXT_PARAMETER,'NO');
add_parameter(pl_id,'STR',TEXT_PARAMETER,:IM_STR_ISSUE_MASTER.STR_CODE);
add_parameter(pl_id,'BAT',TEXT_PARAMETER,:IM_STR_ISSUE_DETAILS.BAT_ID);
add_parameter(pl_id,'DIV',TEXT_PARAMETER,:IM_STR_ISSUE_DETAILS.GRP_CODE);
add_parameter(pl_id,'GRP',TEXT_PARAMETER,:IM_STR_ISSUE_DETAILS.SUB_GRP_CODE);
add_parameter(pl_id,'ITM',TEXT_PARAMETER,:IM_STR_ISSUE_DETAILS.ITEM_CODE);
add_parameter(pl_id,'COPIES',TEXT_PARAMETER,:IM_STR_ISSUE_DETAILS.QTY);
RUN_PRODUCT(REPORTS,'F:\IMS\REPORTS\STOCK_IN_BARCODE.rep',SYNCHRONOUS,RUNTIME,FILESYSTEM,PL_ID);
IF I CHANGE IT TO THE FOLLOWING FOR DIRECT PRINTING IT IS NOT WORKING
ADD_PARAMETER(PL_ID, 'DESTYPE', TEXT_PARAMETER, 'PRINTER');
ADD_PARAMETER(PL_ID, 'DESNAME', TEXT_PARAMETER, 'SOLABEL');
I appreciate any efforts to resolve this issue.
Thanks
Ahon
Edited by: [email protected] on Oct 4, 2009 11:20 PM

Guide to Implement local printing on client in 10gas/9ias
To archive this goal we have used orarrp(Oracle Reports Remote Printing Utility), which can be downloaded from the OTN website http://otn.oracle.com/sample/products/reports/index.html.
Steps:
1.Add the required ORARRP mime types to the Oracle HTTP Server configuration.
(Note: This will be the Oracle HTTP Server belonging to the Oracle Application Server 10g/9ias middle (BI & Forms) tier)
Do this manually by editing the httpd.conf
or
via the Oracle Application Server 10g AS Console e.g.
Navigate to the Middle Tier Components Page
Click on HTTP_Server -> Administration -> MIME Types
NOTE: MIME types added in httpd.conf are as per requirement mode in which report has to be run e.g. pdf, rt(rtf) and html etc. syntax for manual entry in httpd.conf is given below.
AddType application/x-orarrp-text     rrpt
AddType application/x-orarrp-ps     rrpp
AddType application/x-orarrp-pdf     rrpa
AddType application/x-orarrp-rt     rrpr
AddType application/x-orarrp-ini     rrpi
AddType application/x-orarrp-html     rrph
2. Create an aliasmatch in forms.conf pointing to a physical directory \tmp- for example, directory will be c:\tmp
Do this by manually editing the forms.conf
or
via the Oracle Application Server 10g AS Console e.g.
Navigate to the Middle Tier Components Page
Click on HTTP_Server -> Administration -> Advanced Server Properties -> forms.conf
Add a line like :
# Virtual path for physical directory of temp
AliasMatch ^/tmp/(..*) "C:\tmp/$1"
** IMPORTANT NOTE **
The advantages of making the changes via EM / AS console, rather than editing the files manually, are:
- the EM / AS console will put the mime type entries in the correct place
- the EM / AS console automatically issues a 'dcmctl updateconfig' which synchronizes the file changes with the Infrastructure Metadata Repository
- the EM / AS console will do the required restart of the HTTP Server component
(Only the HTTP Server needs to be stopped and restarted – Oracle AS 10g components can remain up and running)
If the changes are made manually then the following commands must be issued after the changes to httpd.conf and forms.conf have been made.
Run these command at run prompt
DRIVE:\oracle\FRHome_1\dcm\bin\dcmctl.bat updateconfig -ct ohs -v -d
(to synchronize the changes with the Metadata Repository)
DRIVE:\oracle\FRHome_1\dcm\bin\dcmctl.bat stop -ct ohs -v -d
DRIVE:\oracle\FRHome_1\dcm\bin\dcmctl.bat start -ct ohs -v -d
where DRIVE: is the drive where \oracle\frhome_1\ is installed.
3. Copy and run orarrp.exe on client machine in program files\orarrp\ folder.
4. Set value of options '”choose_printer=no” in orarrp.ini created at above folder.
5. Add following lines in your code of run_report procedure.
In declare section
vc_file varchar2(225);
In begin block add
/* Generate a pseudo unique filename */
vcfile:=:global.user_code||to_char(sysdate,'YYYYMMDDHHMISS');
vcfile:=vcfile||'.rrpr';
/* In this example - output will be rtf so adding .rrpr extension */
set_report_object_property(repid, report_filename,store_var);
set_report_object_property(repid, report_server, :global.r_server);
set_report_object_property(repid, report_execution_mode, batch);
set_report_object_property(repid, report_comm_mode, SYNCHRONOUS);
set_report_object_property(repid, report_destype, file);
set_report_object_property(repid, report_desformat,'rtf');
set_report_object_property(repid,REPORT_DESNAME,'C:\tmp\'||vcFile);
---- path can be made dynamic by making a database entry in makess.path_entry for tmp folder and
---using proc_path procedure from path lib.
:GLOBAL.PrintOutPut := vcFile;
In Run report section make following change:
     vc_reportserverjob := RUN_REPORT_OBJECT(repid,pi_id);
     report_job_id:=substr(vc_reportserverjob,length(:global.r_server+2,length(vc_reportserverjob));
     v_rep_status:=report_object_status(vc_reportserverjob);
     if v_rep_status='FINISHED' then
          web.show_document('/tmp/'||:global.printoutput,'_blank');
     else
          message ('error when running report'||v_rep_status);
end if;
Edited by: amitphynyl on Oct 5, 2009 1:36 AM

IMac running OS 10.5.8, cannot use Help (it crashes), cannot send report to Apple (it fails).

IMac running OS 10.5.8. I cannot use Help (it crashes), cannot send report to Apple (it fails).

BDAqua: Is this useful?
Apr 5 18:12:04 douglas-hintzmans-imac helpdatad[85500]: port 'com.apple.helpdata' created
Apr 5 18:12:04 douglas-hintzmans-imac helpdatad[85500]: *** Terminating app due to uncaught exception 'NSInvalidArgumentException', reason: '*** -[NSCFDictionary setObject:forKey:]: attempt to insert nil key'
Apr 5 18:12:04 douglas-hintzmans-imac helpdatad[85500]: Stack: (\n 2436780011,\n 2512117307,\n 2436779467,\n 2436779530,\n 2546672193,\n 292147,\n 290667,\n 317673,\n 274277,\n 268995,\n 2546691581,\n 2546690468,\n 2500403285,\n 2500402962\n)
Apr 5 18:12:05 douglas-hintzmans-imac ReportCrash[85501]: Formulating crash report for process helpdatad[85500]
Apr 5 18:12:05 douglas-hintzmans-imac ReportCrash[85501]: Saved crashreport to /Users/douglashintzman/Library/Logs/CrashReporter/helpdatad_2012-04-05-181204_d ouglas-hintzmans-imac.crash using uid: 501 gid: 20, euid: 501 egid: 20

Sending reports directly to a printer (commands) 10g Linux

Hi,
Quick question. I am trying to confirm what I need to pass to Oracle Reports Server in order to print directly to the printer (bypassing any Preview or PDF version of the report in Oracle 10g. I am using Linux. We just installed the printer on the server. I modified to the uiprint.txt file under the ORACLE_HOME/tk/admin to point to the new PPD that we copied for that printer to ORACLE_HOME/guicommon/tk/admin/PPD.
Below is the report call I am making. I just want to verify that what I did was correct. I am currently receiving a FRM-41214: Unable to run Report. When I run the same report via the PDF option that displays in a separate browser window, it brings the same report up correctly.
SET_REPORT_OBJECT_PROPERTY('GENERICREPORT', REPORT_FILENAME, LOWER(:MODULE.MODULE_NAME)||'.rep');
SET_REPORT_OBJECT_PROPERTY('GENERICREPORT', REPORT_SERVER, 'rep_inpp37_gt');
SET_REPORT_OBJECT_PROPERTY('GENERICREPORT', REPORT_OTHER, V_OTHER);
-- V_OTHER is my parameters that I pass, such as PARAMFORM=NO, READONLY=yes, PAGESIZE, ORIENTATION, DELIMITER=NONE, and parameters which in this case there are none.
SET_REPORT_OBJECT_PROPERTY('GENERICREPORT', REPORT_DESTYPE, PRINTER);
SET_REPORT_OBJECT_PROPERTY('GENERICREPORT', REPORT_DESNAME, 'gt-ybs-p'); - this is my printer name
V_REP := RUN_REPORT_OBJECT('GENERICREPORT');
When it runs the V_REP line, that's when I get the FRM-41214 error. Just was wanting to verify if what I had passed for the printer commands is correct.
Chris

I forgot one important piece which is why I am asking the question. I am running the report within an Oracle 10g form. I pass all the parameters across to the Reports Server, as seen above. When I run via the PDF option, I just change the DesType to Cache and DesFormat =PDF. When I run with this, it works and displays the report in a new browser window.
I just want to run the report with the exact same parameters but instead of generating a PDF, I want to run the report and send it directly to the printer without previewing it.
Chris

Print report directly to printer using RUN_PRODUCT in Forms6i

Hi all,
I would like to have information regarding print any .rdf directly to printer from form 6i using RUN_PRODUCT.
I got help from Form Builder Help option and tried following coding in form
     DECLARE
     PL_ID                    PARAMLIST;
     printername          VARCHAR2(50);
     BEGIN
     PL_ID := GET_PARAMETER_LIST('WEIGHMENT');
          IF NOT ID_NULL(PL_ID) THEN
               DESTROY_PARAMETER_LIST(PL_ID);
          END IF;
          PL_ID := CREATE_PARAMETER_LIST('WEIGHMENT');
          printername := '"'||'I.T Printer'||'"';
          Add_Parameter(pl_id, 'DESTYPE', TEXT_PARAMETER, PRINTER);
          Add_Parameter(pl_id, 'DESNAME', TEXT_PARAMETER, printername);
          Add_Parameter(pl_id, 'P_EQ_NBR', TEXT_PARAMETER, :weighment.eq_nbr);
          Add_Parameter(pl_id, 'P_WT_GKEY', TEXT_PARAMETER, :weighment.gkey);
          Run_Product(REPORTS, 'c:\wegt001r', ASYNCHRONOUS, RUNTIME, FILESYSTEM, PL_ID, NULL);
     EXCEPTION
          WHEN OTHERS THEN
          MESSAGE(SQLERRM);
     END;
END IF;
But report did not printed and following message received in Reports Background Engine
Error submitting report [Thu May 07 18:49:23 2009] ...
REP-0159: Syntax error on command line.
Pls help.
Thanks,
Hassan

Hi Heidi
I have already tried printername := 'I.T Printer'; but result is same.
This is also my default printer and I tried to add / remove the following coding
Add_Parameter(pl_id, 'DESNAME', TEXT_PARAMETER, PRINTER);
but in both cased I received the same error.
I also tried to print thru HOST command as follows
the_username := Get_Application_Property(USERNAME);
     the_password := Get_Application_Property(PASSWORD);
     the_connect := Get_Application_Property(CONNECT_STRING);
the_command := 'rwrun60 report=c:\wegt001r.rdf userid= '||the_username||'/'||the_password||'@'||the_connect||' DESTYPE=Printer BACKGROUND=NO BATCH=YES ERRFILE=c:\reports\error.log LOGFILE=c:\reports\joblog.log p_eq_nbr='''||'TESTMKI'''||' p_wt_gkey=118306';
Host( the_command );
Host command displays correctly but no printing.
I then change my command as follows
the_command := 'rwrun60 report=c:\wegt001r.rdf userid=test/test@test DESTYPE=Printer BACKGROUND=NO BATCH=YES ERRFILE=c:\reports\error.log LOGFILE=c:\reports\joblog.log p_eq_nbr='''||'TESTMKI'''||' p_wt_gkey=118306'; and now report prints on printer.
But I cannot hard coded the username, password and connect.
Thanks,
Hassan
Edited by: Hassan Raza Khan Lodhi on May 7, 2009 6:55 PM

Print RDLC Report Directly to Printer with SubReports!

I am currently printing a report directly to the default printer using the code from this link.
http://msdn.AddHandler
ReportViewer1.LocalReport.SubreportProcessing, AddressOf SubreportProcessingEventHandler
and this code:
Public Sub SubreportProcessingEventHandler(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)
Dim zrpt = e.ReportPath
Select Case zrpt
Case "WOPartsSubReport"
Dim ds1 As New WOPartsSubReportDataSet
Dim da1 As New WOPartsSubReportDataSetTableAdapters.wopartsTableAdapter
da1.Fill(ds1.woparts)
e.DataSources.Add(New ReportDataSource("DataSet1", ds1.Tables("woparts")))
Case "WOLaborSubReport"
Dim ds2 As New WOLaborSubReportDataSet
Dim da2 As New WOLaborSubReportDataSetTableAdapters.wolaborTableAdapter
da2.Fill(ds2.wolabor)
e.DataSources.Add(New ReportDataSource("DataSet1", ds2.Tables("wolabor")))
Case "WOLockoutSubReport"
Dim ds As New WOLockOutSubReportDataSet
Dim da As New WOLockOutSubReportDataSetTableAdapters.wolockTableAdapter
da.Fill(ds.wolock)
e.DataSources.Add(New ReportDataSource("DataSet1", ds.Tables("wolock")))
End Select
End Sub
But now that I am NOT using a reportviewer how can I still get the subreports to work and still print directly to the printer? Where would I put the code to do that?
Thanks,
Stacy

Hi Stacy,
Sorry for the delay.
It’s Christian that I have involved to help on this issue. Maybe the issue requires a more in-depth level of support. Alternatively, you could contact Microsoft Customer Support Services (CSS) via telephone so that a dedicated Support Professional can assist
you in a more efficient manner. Please understand that contacting phone support will be a charged call, but it will be free if this is a product issue. To obtain the phone numbers for specific technology request please take a look at the web site listed below:
http://support.microsoft.com/default.aspx?scid=fh;EN-US;PHONENUMBERS
Another option would be creating a thread on our Connect site:
http://connect.microsoft.com/sql.
Regards,
Mike Yin
If you have any feedback on our support, please click
here
Mike Yin
TechNet Community Support

How to print a report directly on printer

Hi,
anyone, plz help me in finding out, why my report i.e. i m sending directly to printer is getting printed like html codes?
Plz help asap.
Br,
Divya Alok

please check out the following link.
Print report directly
just mention the printer name i hope it helps u.
sarah
Edited by: QGIRCO on Apr 1, 2010 3:01 AM

Error when sending report output to printer from Forms 10g

Hi,
I have a simple report that I am running from a form using run_report_object built-in. I can successfully send the report output to a file but when I send the report output to a printer my report is
terminated with report status of 'TERMINATED_WITH_ERROR'. I am using the default forms service and reports server that comes with the forms builder. How do I specify the reports server to user my default network printer ?Following is the code that runs my report.
Thanks,
Anna
PROCEDURE SEND_TO_PRINTER IS
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(50);
rep_server system_variables.reports_server%type;
alldone          exception;
BEGIN
     select reports_server
     into rep_server
     from system_variables;
     if rep_server is null then
          msg_alert('Error getting the reports server name', 'I', FALSE);
          raise alldone;
     end if;
     :ctrl.run_report_errors := 'N';
     repid := find_report_object('REP_OBJ1');
     SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,rep_server);
     SET_REPORT_OBJECT_PROPERTY(repid,REPORT_EXECUTION_MODE,BATCH);
     SET_REPORT_OBJECT_PROPERTY(repid,REPORT_COMM_MODE,SYNCHRONOUS);
     IF :ctrl.rg_print = 'P' THEN
          --Send the output to printer.
          SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,PRINTER);
          SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'dflt');
     ELSIF :ctrl.rg_print = 'R' THEN
          --Rich Text Format
          SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,FILE);
          SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'rtf');
          SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESNAME,:ctrl.filename);
     END IF;
     v_rep := RUN_REPORT_OBJECT(repid);
     rep_status := REPORT_OBJECT_STATUS(v_rep);
     WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
     LOOP
          rep_status := report_object_status(v_rep);
     END LOOP;
     IF rep_status = 'FINISHED' THEN
          null;
     ELSE
          :ctrl.run_report_errors := 'Y';
          msg_alert('Error when running report.' || rep_status, 'I', FALSE);
     END IF;
EXCEPTION
     when no_data_found then
          msg_alert('Error getting the reports server name', 'I', FALSE);
     when alldone then
          null;
END;

If you use Windows the user that runs the reports server is usually LocalSystem. Check this in the Windows Services panel.
LocalSystem has no printer access. To be able to print, you have to use a real domain user that has access to the printer. So, change the Log on properties in the Services panel.

Print report directly to printer

I am using Crystal Reports XI R2 to generate reports in Powerbuilder. I want to know whether it is possible to print the report directly to a printer without displaying it in the Crystal Report viewer?
Thanks,
Amol

I have a very similar problem, not being able to print a report directly to the printer.
But I am calling Crystal Reports v8.5 from VB6. I have tried the suggested code:
report.PrintOut(prompt user, numberofCopy, collated, startpage, endpage)
but get a "type mismatch" compiler error with "PrintOut" highlighted when compiling, eventhough the inline help shows this method and matching arguments.
I wonder if I have the correct DLL referenced.
This report runs fine thru the preview window, but since this is a series of reports about 100 pages, don't really want the user to have to specify print dozens of times.
Thanks,
Gene

Sample for printing report directly to printer

Hi Guys
Does anyone have a report which can print directly to the printer when the radio button option is selected .
I want to print the ALV in excel format.
Printer >>>>.
Screeb >>>>>
Regards
P.Eslam

Hi
I tried with this FM but giving short dump error can anyone explain why pls see the below program for testing.
REPORT Z_ESLP_ZTCODE .
"LINE-SIZE 600 .
TABLES : AGR_TCODES,
AGR_USERS,
TSTCT.
type-pools: slis.                                 "ALV Declarations
CONSTANTS MARK VALUE 'X'.
*Data Declaration
LIFNR, NAME1, STRAS, ORT01, REGIO, PSTLZ, PFACH, LAND1
TYPES: BEGIN OF T_DISP,
AGR_TCODES TYPE AGR_TCODES-TCODE ,             " Transaction code A
AGR_NAME   TYPE AGR_TCODES-AGR_NAME,           " Role Name B
AGR_UNAME TYPE AGR_USERS-UNAME,               " Short User Name B
TTEXT      TYPE TSTCT-TTEXT,                   " Description Name C
TEXTC      TYPE USER_ADDR-NAME_TEXTC,          " Long User Name
SPRSL      TYPE TSTCT-SPRSL ,                  " Language c
END OF t_disp.
DATA: it_disp TYPE STANDARD TABLE OF t_disp INITIAL SIZE 0,
      wa_disp TYPE t_disp.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid,
      gt_events     type slis_t_event,
      gd_prntparams type slis_print_alv.
DATA:L_PARAMS TYPE PRI_PARAMS,
       L_VALID TYPE C.
DATA: w_file      TYPE rlgrap-filename VALUE 'it_value'.
SELECTION PARAMETER CRITERIA
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME.
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: P_TCODE FOR AGR_TCODES-TCODE , "OBLIGATORY, "no-extension no intervals,
U_NAME FOR AGR_USERS-UNAME,
R_NAME FOR AGR_USERS-AGR_NAME .
SELECTION-SCREEN END OF BLOCK BLK1.
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN END OF BLOCK BLK2.
SELECTION-SCREEN END OF BLOCK BLK.
SELECTION-SCREEN BEGIN OF BLOCK radio WITH FRAME.
PARAMETERS :scr   RADIOBUTTON GROUP rbg1 ,
              pr RADIOBUTTON GROUP rbg1 .
SELECTION-SCREEN END OF BLOCK radio.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform build_events.
perform build_print_params.
perform display_alv_report.
*&      Form BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
form build_fieldcatalog.
fieldcatalog-fieldname   = 'AGR_UNAME'.
fieldcatalog-seltext_m   = 'User'.
fieldcatalog-col_pos     = 0.
fieldcatalog-outputlen   = 10.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'TEXTC'.
fieldcatalog-seltext_m   = 'Name'.
fieldcatalog-outputlen   = 50.
fieldcatalog-col_pos     = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'AGR_NAME'.
fieldcatalog-seltext_m   = 'Role Name'.
fieldcatalog-outputlen   = 15.
fieldcatalog-col_pos     = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'AGR_TCODES'.
fieldcatalog-seltext_m   = 'Trans Code'.
fieldcatalog-col_pos     = 3.
fieldcatalog-outputlen   = 15.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'TTEXT'.
fieldcatalog-seltext_m   = 'DESCRIPTION'.
fieldcatalog-outputlen   = 40.
fieldcatalog-col_pos     = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
form build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
endform.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE' "see FORM
            i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_special_groups       = gd_tabgroup
            it_events               = gt_events
            is_print                = gd_prntparams
            i_save                  = 'X'
           is_variant              = z_template
       tables
            t_outtab                = it_disp
       exceptions
            program_error           = 1
            others                  = 2.
if sy-subrc EQ 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endform.                    " DISPLAY_ALV_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form lfa1 table and populate itab it_lfa1
form data_retrieval.
CASE MARK.
    WHEN scr.
   SELECT AGR_TCODESTCODE AGR_TCODESAGR_NAME AGR_USERSUNAME TSTCTTTEXT USER_ADDR~NAME_TEXTC
INTO TABLE IT_DISP
FROM AGR_TCODES
INNER JOIN AGR_USERS
ON AGR_TCODESAGR_NAME = AGR_USERSAGR_NAME
INNER JOIN USER_ADDR
ON AGR_USERSUNAME = USER_ADDRBNAME
INNER JOIN TSTCT
ON AGR_TCODESTCODE = TSTCTTCODE
where
agr_tcodes~tcode in p_tcode
and
agr_users~uname in u_name
and
agr_tcodes~agr_name in r_name
and
TSTCT~SPRSL EQ 'E'.
    WHEN pr.
CALL FUNCTION 'FTBU_START_EXCEL'
    EXPORTING
      data_name           = w_file
      data_path_flag      = 'T'
*---Start Excel and not Wait
      wait                = ' '
    TABLES
      data_tab             = it_disp
    EXCEPTIONS
      no_batch            = 1
      excel_not_installed = 2
      wrong_version       = 3
      internal_error      = 4
      invalid_type        = 5
      cancelled           = 6
      download_error      = 7
      OTHERS              = 8.
      NEW-PAGE PRINT ON   PARAMETERS L_PARAMS NO DIALOG.
       write : 'print'.
      NEW-PAGE PRINT ON.
ENDCASE.
endform.                    " DATA_RETRIEVAL
Form TOP-OF-PAGE                                                 *
ALV Report Header                                                 *
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
      wa_header type slis_listheader,
      t_line like wa_header-info,
      ld_lines type i,
      ld_linesc(10) type c.
Title
wa_header-typ = 'H'.
wa_header-info = 'Transaction codes by User and Role Name ' .
append wa_header to t_header.
clear wa_header.
Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
               sy-datum+4(2) '.'
               sy-datum(4) INTO wa_header-info.   "todays date
append wa_header to t_header.
clear: wa_header.
Total No. of Records Selected
describe table it_disp lines ld_lines.
ld_linesc = ld_lines.
concatenate 'Total No. of Transaction Records Selected: ' ld_linesc
                    into t_line separated by space.
wa_header-typ = 'A'.
wa_header-info = t_line.
append wa_header to t_header.
clear: wa_header, t_line.
call function 'REUSE_ALV_COMMENTARY_WRITE'
       exporting
            it_list_commentary = t_header.
           i_logo             = 'Z_LOGO'.
endform.
*&      Form BUILD_EVENTS
      Build events table
form build_events.
data: ls_event type slis_alv_event.
call function 'REUSE_ALV_EVENTS_GET'
       exporting
            i_list_type = 0
       importing
            et_events   = gt_events[].
read table gt_events with key name = slis_ev_end_of_page
                           into ls_event.
if sy-subrc = 0.
    move 'END_OF_PAGE' to ls_event-form.
    append ls_event to gt_events.
endif.
    read table gt_events with key name = slis_ev_end_of_list
                           into ls_event.
if sy-subrc = 0.
    move 'END_OF_LIST' to ls_event-form.
    append ls_event to gt_events.
endif.
endform.                    " BUILD_EVENTS
*&      Form BUILD_PRINT_PARAMS
      Setup print parameters
form build_print_params.
gd_prntparams-reserve_lines = '3'.   "Lines reserved for footer
gd_prntparams-no_coverpage = 'X'.
endform.                    " BUILD_PRINT_PARAMS
*&      Form END_OF_PAGE
form END_OF_PAGE.
data: listwidth type i,
        ld_pagepos(10) type c,
        ld_page(10)    type c.
write: sy-uline(50).
skip.
write:/40 'Page:', sy-pagno .
endform.
*&      Form END_OF_LIST
form END_OF_LIST.
data: listwidth type i,
        ld_pagepos(10) type c,
        ld_page(10)    type c.
skip.
write:/40 'Page:', sy-pagno .
endform.

Print report directly to printer without acknowledgement

I'm running reports 9i.
I can successfully print a report directly to a printer but how do I stop a window poping up displaying the "Oracle Reports Job Status"
Thanks

I have a very similar problem, not being able to print a report directly to the printer.
But I am calling Crystal Reports v8.5 from VB6. I have tried the suggested code:
report.PrintOut(prompt user, numberofCopy, collated, startpage, endpage)
but get a "type mismatch" compiler error with "PrintOut" highlighted when compiling, eventhough the inline help shows this method and matching arguments.
I wonder if I have the correct DLL referenced.
This report runs fine thru the preview window, but since this is a series of reports about 100 pages, don't really want the user to have to specify print dozens of times.
Thanks,
Gene

Run reports direct to printer

Hello all:
In developer 6i i created a form with two buttons , one to run reports on the screen (P_RunReport('report_name','SCREEN'); )the other is to run reports directly to the printer (P_RunReport('report_name','printer');),
Now when i convert this form in developer 10g both buttons run reports on the screen,So how can i direct reports to printer within the same form?.
Thanks alot.

I believe you'll be using Set_report_object somewhere in your code.
Shall you check exactly which value is going into that?
If you are sure that the value is going in is "SCREEN' or 'PRINTER', could you debug into the reports trace file?
That might help you.
Warm Regards,
Raja.

Cannot send report directly to printer

Similar Messages

Maybe you are looking for