Print twice via print command(s) does not work...

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Print twice via print command(s) does not work...

    I know this has been discussed before, but I don;t know that I saw a resolution to the problem so I bring it up again.

    Code:
    PRINT/REPORT,EXEC MODE=END,$              TO_FILE=ON,PROMPT,$
                  TO_PRINTER=OFF,$
                  TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                  REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                  PREVIOUS_RUNS=DELETE_INSTANCES
    PRINTREPORT =COMMENT/YESNO,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
                DO YOU WANT TO PRINT A HARD COPY OF THE REPORT?
                IF_GOTO/PRINTREPORT.INPUT=="NO",GOTO = NOPRINT
                PRINT/REPORT,EXEC MODE=END,$
                  TO_FILE=OFF,PROMPT,$
                  TO_PRINTER=ON,$
                  TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                  REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                  PREVIOUS_RUNS=DELETE_INSTANCES
    NOPRINT    =LABEL/
    I am trying to set up print commands such that the first one prints to pdf and then the operator is asked if they would like a hard copy. Upon running the code, PC-DMIS runs right past it like it wasn't even there??? This happens when the program is run normally and/or when run using marked sets.

    Anyone got a fix??
    sigpic

    James Mannes

  • #2
    The PRINT command updates the internals to the current command in the part program. So there is nothing left to print with the 2nd one. You may be able to have 2 PRINT commands wrapped inside an IF/ELSE statement. One to print to PDF, the other to print to PDF & printer based on the COMMENT/YESNO. Never tried that though.

    Comment


    • #3
      Just fiddled with it and found something strange... I made the code "PRINT/REPORT,EXEC" twice. Then instead of pushing F9 I went to File, Printing, Report window Setup. Both print codes say No print but taking the long way to it it said yes to the print.

      Comment


      • #4
        Don't "delete instances"

        Comment


        • #5
          Originally posted by R2ah1ze1l View Post
          Don't "delete instances"
          Suggested on the other site as well. I tried it and it does not print a paper copy.

          Code:
          PRINT/REPORT,EXEC MODE=END,$              TO_FILE=ON,PROMPT,$
                        TO_PRINTER=OFF,$
                        TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                        REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                        PREVIOUS_RUNS=KEEP_INSTANCES
          PRINTREPORT =COMMENT/YESNO,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
                      DO YOU WANT TO PRINT A HARD COPY OF THE REPORT?
                      IF_GOTO/PRINTREPORT.INPUT=="NO",GOTO = NOPRINT
                      PRINT/REPORT,EXEC MODE=END,$
                        TO_FILE=OFF,PROMPT,$
                        TO_PRINTER=ON,$
                        TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                        REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                        PREVIOUS_RUNS=KEEP_INSTANCES
          NOPRINT    =LABEL/
          sigpic

          James Mannes

          Comment


          • #6
            Bet it will not print if you take the long way and say no print. Even if the print code is on.

            Comment


            • #7
              James try this:

              Before PRINTREPORT comment type:

              ASSIGN / PRINTREPORT.INPUT="YES"

              This should reset your input to yes, if the last time you answered this question it was a "no" then it will save it as a no. I hope this helps. Also, you may want to put the comment before the print command. I've found that, for some reason, putting comments directly after a print command skips the comment.
              If there wasn't a wrong way, I would have no way at all.

              Comment


              • #8
                Seen this as well, is there no way to print 2 copies of the report unless I do it manually?
                PC-DMIS CAD++ 2o19 R1 SP9

                Comment


                • #9
                  this sets a 4 way option

                  it has worked for me

                  Code:
                  PART NAME  :  12J123
                  REV NUMBER :  ENTER REV # FROM PRINT
                  SER NUMBER :  QA-191
                  STATS COUNT : 1
                   
                  STARTUP    =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
                              ALIGNMENT/END
                              MODE/MANUAL
                              PREHIT/0.2
                              RETRACT/0.2
                              CHECK/1,1
                              MOVESPEED/ 50
                              FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;MEAS,NOM,DEV,TOL,OUTTOL, , 
                              COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                              .
                              OPERATOR SETUP NOTES
                              .
                              GOTO/SKIPPIC
                  $$ NO,
                              .
                              PLACE PICTURE HERE
                              .
                  SKIPPIC    =LABEL/
                              LOADPROBE/REF_PROBE
                              TIP/TIP1, SHANKIJK=0, 0, 1, ANGLE=0
                  $$ NO,
                              x
                              x
                              x
                              x  program section
                              x
                              x
                              MODE/DCC
                  CIR1       =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR
                              THEO/<5.5015,-13.9555,-19>,<0,0,1>,13
                              ACTL/<5.5015,-13.9555,-19>,<0,0,1>,13
                              TARG/<5.5015,-13.9555,-19>,<0,0,1>
                              START ANG=0,END ANG=360
                              ANGLE VEC=<0,0,1>
                              DIRECTION=CCW
                              SHOW FEATURE PARAMETERS=NO
                              SHOW CONTACT PARAMETERS=YES
                                NUMHITS=12,DEPTH=0,PITCH=0
                                SAMPLE HITS=0,SPACER=0
                                AVOIDANCE MOVE=NO,DISTANCE=0
                                FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
                              SHOW HITS=NO
                  CIR2       =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR
                              THEO/<5.5015,-13.9555,-19>,<0,0,1>,11
                              ACTL/<5.5015,-13.9555,-19>,<0,0,1>,11
                              TARG/<5.5015,-13.9555,-19>,<0,0,1>
                              START ANG=0,END ANG=360
                              ANGLE VEC=<0,0,1>
                              DIRECTION=CCW
                              SHOW FEATURE PARAMETERS=NO
                              SHOW CONTACT PARAMETERS=YES
                                NUMHITS=12,DEPTH=0,PITCH=0
                                SAMPLE HITS=0,SPACER=0
                                AVOIDANCE MOVE=NO,DISTANCE=0
                                FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
                              SHOW HITS=NO
                  C1         =COMMENT/INPUT,NO,FULL SCREEN=NO,
                              .
                              PLEASE ENTER A ORDER NUMBER FOR THIS JOB
                              .
                              EXAMPLE   103049998
                              ASSIGN/ORNUM1=C1.INPUT
                  C2         =COMMENT/INPUT,NO,FULL SCREEN=NO,
                              .
                              PLEASE ENTER A SERIAL NUMBER FOR THIS PART
                              .
                              EXAMPLE  1
                              ASSIGN/SERNUM1=C2.INPUT
                              FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;MEAS,NOM,DEV,TOL,OUTTOL, , 
                              COMMENT/REPT,
                              .
                              COMMENT/REPT,
                              "ORDER NUMBER:  "  + ORNUM1 +"          SERIAL NUMBER:  "+ SERNUM1
                              ASSIGN/QA1=STR(GETTEXT(193,1,{FILEHEDR}))
                              COMMENT/REPT,
                              "CMM OUTPUT IS MADE TO:  "  + QA1
                  $$ NO,
                              .
                              OUTPUT SECTION OF THR REPORT
                              .
                  DIM LOC1= LOCATION OF CIRCLE CIR1  UNITS=IN ,$
                  GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
                  AX       MEAS    NOMINAL        DEV       +TOL       -TOL     OUTTOL
                  X       5.5015     5.5015     0.0000     0.0020     0.0020     0.0000 ----#----
                  Y     -13.9555   -13.9555     0.0000     0.0020     0.0020     0.0000 ----#----
                  Z     -19.0000   -19.0000     0.0000     0.0020     0.0020     0.0000 ----#----
                  D      13.0000    13.0000     0.0000     0.0020     0.0020     0.0000 ----#----
                  RN      0.0000     0.0000     0.0000     0.0020     0.0000     0.0000 #--------
                  END OF DIMENSION LOC1
                  DIM LOC2= LOCATION OF CIRCLE CIR2  UNITS=IN ,$
                  GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
                  AX       MEAS    NOMINAL        DEV       +TOL       -TOL     OUTTOL
                  X       5.5015     5.5015     0.0000     0.0020     0.0020     0.0000 ----#----
                  Y     -13.9555   -13.9555     0.0000     0.0020     0.0020     0.0000 ----#----
                  Z     -19.0000   -19.0000     0.0000     0.0020     0.0020     0.0000 ----#----
                  D      11.0000    11.0000     0.0000     0.0020     0.0020     0.0000 ----#----
                  RN      0.0000     0.0000     0.0000     0.0020     0.0000     0.0000 #--------
                  END OF DIMENSION LOC2
                  $$ NO,
                              X
                              X
                              X
                              X
                              X
                              X
                              COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                              .
                              OPEN REPORT WINDOW AND REVEIW RESULTS.
                              .
                              IF YOU WISH TO STOP CLICK CANCEL
                  C3         =COMMENT/INPUT,NO,FULL SCREEN=NO,
                              .
                              PLEASE TYPE ANY COMMENTS AT THIS TIME
                              .
                              COMMENTS WILL BE ENTERED AT THE END OF THE REPORT
                              .
                              ASSIGN/COMM1=C3.INPUT
                              COMMENT/REPT,
                              "~~4  OPERATOR NOTES: " +COMM1
                  C4         =COMMENT/INPUT,NO,FULL SCREEN=NO,
                              ENTER  1  FOR PRINTER ONLY
                              .
                              ENTER  2  FOR SAVE FILE ONLY
                              .
                              ENTER  3  FOR PRINTER AND SAVE FILE
                              .
                              ENTER  0  TO QUIT OR CLICK CANCEL
                              . 
                              ASSIGN/PART=STR(GETTEXT(191,1,{FILEHEDR}))
                              ASSIGN/FILESTORLOC="C:\PC_DMIS\NON_GEARING\REPORTS\ "
                              ASSIGN/FILENAME=PART+"-"+ORNUM1+"-"+SERNUM1+".PDF"
                              ASSIGN/VAL_FILE=FILESTORLOC+FILENAME
                              ASSIGN/V1=0
                              ASSIGN/V1=0
                              IF/C4.INPUT == 1
                              PRINT/REPORT,EXEC MODE=END,$
                                TO_FILE=OFF,OVERWRITE=VAL_FILE,$
                                TO_PRINTER=ON,$
                                TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                PREVIOUS_RUNS=DELETE_INSTANCES
                              END_IF/
                              IF/C4.INPUT == 2
                              PRINT/REPORT,EXEC MODE=END,$
                                TO_FILE=ON,OVERWRITE=VAL_FILE,$
                                TO_PRINTER=OFF,$
                                TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                PREVIOUS_RUNS=DELETE_INSTANCES
                              END_IF/
                              IF/C4.INPUT == 3
                              PRINT/REPORT,EXEC MODE=END,$
                                TO_FILE=ON,OVERWRITE=VAL_FILE,$
                                TO_PRINTER=ON,$
                                TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                PREVIOUS_RUNS=DELETE_INSTANCES
                              END_IF/
                              PRINT/REPORT,EXEC MODE=END,$
                                TO_FILE=OFF,OVERWRITE=VAL_FILE,$
                                TO_PRINTER=OFF,$
                                TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                PREVIOUS_RUNS=DELETE_INSTANCES
                  AL

                  "I am trying to set up print commands such that the first one prints to pdf and then the operator is asked if they would like a hard copy."
                  or were you looking for two hard copy ?
                  Last edited by EZalg; 05-22-2013, 03:04 PM. Reason: what?
                  sigpic Now I see it from your prospective.

                  Comment


                  • #10
                    Would this help, I apologize if the code doesn't format correctly here.
                    Code:
                    C2         =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                                Would you like to print a hard copy.
                                ASSIGN/PDFNAME="G:\DNC\CMM\NC01704\Reports\\TX-112A-00_"+JOB+"_"+SERNO+".PDF"
                                IF_GOTO/C2.INPUT=="YES",GOTO = WHOLE_PRINT
                                PRINT/REPORT,EXEC MODE=END,$
                                  TO_FILE=ON,OVERWRITE=PDFNAME,$
                                  TO_PRINTER=OFF,$
                                  TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME=,$
                                  REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                  PREVIOUS_RUNS=KEEP_INSTANCES
                                GOTO/ENDOFPROGRAM
                    WHOLE_PRINT=LABEL/
                                PRINT/REPORT,EXEC MODE=END,$
                                  TO_FILE=ON,OVERWRITE=PDFNAME,$
                                  TO_PRINTER=ON,$
                                  TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME=,$
                                  REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                  PREVIOUS_RUNS=KEEP_INSTANCES
                    ENDOFPROGRAM=LABEL/
                    Last edited by Wlayton; 05-22-2013, 03:58 PM. Reason: code error
                    If there wasn't a wrong way, I would have no way at all.

                    Comment


                    • #11
                      Originally posted by EZalg View Post
                      this sets a 4 way option

                      it has worked for me

                      Code:
                      PART NAME  :  12J123
                      REV NUMBER :  ENTER REV # FROM PRINT
                      SER NUMBER :  QA-191
                      STATS COUNT : 1
                       
                      STARTUP    =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
                                  ALIGNMENT/END
                                  MODE/MANUAL
                                  PREHIT/0.2
                                  RETRACT/0.2
                                  CHECK/1,1
                                  MOVESPEED/ 50
                                  FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;MEAS,NOM,DEV,TOL,OUTTOL, , 
                                  COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                                  .
                                  OPERATOR SETUP NOTES
                                  .
                                  GOTO/SKIPPIC
                      $$ NO,
                                  .
                                  PLACE PICTURE HERE
                                  .
                      SKIPPIC    =LABEL/
                                  LOADPROBE/REF_PROBE
                                  TIP/TIP1, SHANKIJK=0, 0, 1, ANGLE=0
                      $$ NO,
                                  x
                                  x
                                  x
                                  x  program section
                                  x
                                  x
                                  MODE/DCC
                      CIR1       =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR
                                  THEO/<5.5015,-13.9555,-19>,<0,0,1>,13
                                  ACTL/<5.5015,-13.9555,-19>,<0,0,1>,13
                                  TARG/<5.5015,-13.9555,-19>,<0,0,1>
                                  START ANG=0,END ANG=360
                                  ANGLE VEC=<0,0,1>
                                  DIRECTION=CCW
                                  SHOW FEATURE PARAMETERS=NO
                                  SHOW CONTACT PARAMETERS=YES
                                    NUMHITS=12,DEPTH=0,PITCH=0
                                    SAMPLE HITS=0,SPACER=0
                                    AVOIDANCE MOVE=NO,DISTANCE=0
                                    FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
                                  SHOW HITS=NO
                      CIR2       =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR
                                  THEO/<5.5015,-13.9555,-19>,<0,0,1>,11
                                  ACTL/<5.5015,-13.9555,-19>,<0,0,1>,11
                                  TARG/<5.5015,-13.9555,-19>,<0,0,1>
                                  START ANG=0,END ANG=360
                                  ANGLE VEC=<0,0,1>
                                  DIRECTION=CCW
                                  SHOW FEATURE PARAMETERS=NO
                                  SHOW CONTACT PARAMETERS=YES
                                    NUMHITS=12,DEPTH=0,PITCH=0
                                    SAMPLE HITS=0,SPACER=0
                                    AVOIDANCE MOVE=NO,DISTANCE=0
                                    FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
                                  SHOW HITS=NO
                      C1         =COMMENT/INPUT,NO,FULL SCREEN=NO,
                                  .
                                  PLEASE ENTER A ORDER NUMBER FOR THIS JOB
                                  .
                                  EXAMPLE   103049998
                                  ASSIGN/ORNUM1=C1.INPUT
                      C2         =COMMENT/INPUT,NO,FULL SCREEN=NO,
                                  .
                                  PLEASE ENTER A SERIAL NUMBER FOR THIS PART
                                  .
                                  EXAMPLE  1
                                  ASSIGN/SERNUM1=C2.INPUT
                                  FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;MEAS,NOM,DEV,TOL,OUTTOL, , 
                                  COMMENT/REPT,
                                  .
                                  COMMENT/REPT,
                                  "ORDER NUMBER:  "  + ORNUM1 +"          SERIAL NUMBER:  "+ SERNUM1
                                  ASSIGN/QA1=STR(GETTEXT(193,1,{FILEHEDR}))
                                  COMMENT/REPT,
                                  "CMM OUTPUT IS MADE TO:  "  + QA1
                      $$ NO,
                                  .
                                  OUTPUT SECTION OF THR REPORT
                                  .
                      DIM LOC1= LOCATION OF CIRCLE CIR1  UNITS=IN ,$
                      GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
                      AX       MEAS    NOMINAL        DEV       +TOL       -TOL     OUTTOL
                      X       5.5015     5.5015     0.0000     0.0020     0.0020     0.0000 ----#----
                      Y     -13.9555   -13.9555     0.0000     0.0020     0.0020     0.0000 ----#----
                      Z     -19.0000   -19.0000     0.0000     0.0020     0.0020     0.0000 ----#----
                      D      13.0000    13.0000     0.0000     0.0020     0.0020     0.0000 ----#----
                      RN      0.0000     0.0000     0.0000     0.0020     0.0000     0.0000 #--------
                      END OF DIMENSION LOC1
                      DIM LOC2= LOCATION OF CIRCLE CIR2  UNITS=IN ,$
                      GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
                      AX       MEAS    NOMINAL        DEV       +TOL       -TOL     OUTTOL
                      X       5.5015     5.5015     0.0000     0.0020     0.0020     0.0000 ----#----
                      Y     -13.9555   -13.9555     0.0000     0.0020     0.0020     0.0000 ----#----
                      Z     -19.0000   -19.0000     0.0000     0.0020     0.0020     0.0000 ----#----
                      D      11.0000    11.0000     0.0000     0.0020     0.0020     0.0000 ----#----
                      RN      0.0000     0.0000     0.0000     0.0020     0.0000     0.0000 #--------
                      END OF DIMENSION LOC2
                      $$ NO,
                                  X
                                  X
                                  X
                                  X
                                  X
                                  X
                                  COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                                  .
                                  OPEN REPORT WINDOW AND REVEIW RESULTS.
                                  .
                                  IF YOU WISH TO STOP CLICK CANCEL
                      C3         =COMMENT/INPUT,NO,FULL SCREEN=NO,
                                  .
                                  PLEASE TYPE ANY COMMENTS AT THIS TIME
                                  .
                                  COMMENTS WILL BE ENTERED AT THE END OF THE REPORT
                                  .
                                  ASSIGN/COMM1=C3.INPUT
                                  COMMENT/REPT,
                                  "~~4  OPERATOR NOTES: " +COMM1
                      C4         =COMMENT/INPUT,NO,FULL SCREEN=NO,
                                  ENTER  1  FOR PRINTER ONLY
                                  .
                                  ENTER  2  FOR SAVE FILE ONLY
                                  .
                                  ENTER  3  FOR PRINTER AND SAVE FILE
                                  .
                                  ENTER  0  TO QUIT OR CLICK CANCEL
                                  . 
                                  ASSIGN/PART=STR(GETTEXT(191,1,{FILEHEDR}))
                                  ASSIGN/FILESTORLOC="C:\PC_DMIS\NON_GEARING\REPORTS\ "
                                  ASSIGN/FILENAME=PART+"-"+ORNUM1+"-"+SERNUM1+".PDF"
                                  ASSIGN/VAL_FILE=FILESTORLOC+FILENAME
                                  ASSIGN/V1=0
                                  ASSIGN/V1=0
                                  IF/C4.INPUT == 1
                                  PRINT/REPORT,EXEC MODE=END,$
                                    TO_FILE=OFF,OVERWRITE=VAL_FILE,$
                                    TO_PRINTER=ON,$
                                    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                    PREVIOUS_RUNS=DELETE_INSTANCES
                                  END_IF/
                                  IF/C4.INPUT == 2
                                  PRINT/REPORT,EXEC MODE=END,$
                                    TO_FILE=ON,OVERWRITE=VAL_FILE,$
                                    TO_PRINTER=OFF,$
                                    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                    PREVIOUS_RUNS=DELETE_INSTANCES
                                  END_IF/
                                  IF/C4.INPUT == 3
                                  PRINT/REPORT,EXEC MODE=END,$
                                    TO_FILE=ON,OVERWRITE=VAL_FILE,$
                                    TO_PRINTER=ON,$
                                    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                    PREVIOUS_RUNS=DELETE_INSTANCES
                                  END_IF/
                                  PRINT/REPORT,EXEC MODE=END,$
                                    TO_FILE=OFF,OVERWRITE=VAL_FILE,$
                                    TO_PRINTER=OFF,$
                                    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                    PREVIOUS_RUNS=DELETE_INSTANCES
                      AL

                      "I am trying to set up print commands such that the first one prints to pdf and then the operator is asked if they would like a hard copy."
                      or were you looking for two hard copy ?
                      That works like a charm. Thanks eZalg!!! I owe you a beer.
                      sigpic

                      James Mannes

                      Comment


                      • #12
                        I did like ezalg suggested, here is how I did it...

                        Code:
                        COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,            REVIEW THE REPORT AND THEN CLICK OK TO CONTINUE.
                        PR1        =COMMENT/INPUT,NO,FULL SCREEN=NO,
                                                ENTER  1  FOR SAVE FILE ONLY
                                                .
                                                ENTER  2  FOR PRINTER AND SAVE FILE
                                                .
                                                ENTER  0  TO QUIT OR CLICK CANCEL
                                                . 
                                    IF/PR1.INPUT==1
                                    PRINT/REPORT,EXEC MODE=END,$
                                      TO_FILE=ON,PROMPT,$
                                      TO_PRINTER=OFF,$
                                      TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                      REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                      PREVIOUS_RUNS=DELETE_INSTANCES
                                    END_IF/
                                    IF/PR1.INPUT==2
                                    PRINT/REPORT,EXEC MODE=END,$
                                      TO_FILE=ON,PROMPT,$
                                      TO_PRINTER=ON,$
                                      TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                                      REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                                      PREVIOUS_RUNS=DELETE_INSTANCES
                                    END_IF/
                        sigpic

                        James Mannes

                        Comment


                        • #13
                          Put a ticket in for the 2013 tech preview.
                          Seems you can't print several copies of the report via the (partprogram) print command.
                          PC-DMIS CAD++ 2o19 R1 SP9

                          Comment

                          Related Topics

                          Collapse

                          Working...
                          X