Secondary Report won't Print nor Save

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

  • Secondary Report won't Print nor Save

    Hey folks,

    For some reason, as the title says, my secondary report wont save anywhere and it wont print either. I'm almost convinced that it isn't even being created. I've put "x"'s everywhere that a part number or confidential info is, just an FYI.

    Take a look at this code from the beginning of the program:

    Code:
    STARTUP =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
    ALIGNMENT/END
    MODE/MANUAL
    FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;MEAS,NOM,TOL,MAXMIN,DEV,OUTTOL,
    MOVESPEED/ 500
    TOUCHSPEED/ 2
    SCANSPEED/500
    ACCELERATION/MAXACCELX=500, MAXACCELY=500, MAXACCELZ=500
    LOADPROBE/HPSX1HS_3BY50MM
    TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
    COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    PLACE PART IN CENTER OF TABLE WITH -A- (LONG LEG) DOWN,
    MAKE SURE YOU HAVE CLEARANCE FROM TOOL CHANGER!
    TOP OF PART IS MANUAL PLANE, INNER BORE IS MANUAL CIRCLE.
    PROGRAM USES HPSX1HS_3BY50MM AND HPSX1HS_5BY_50_90DEG PROBES
    WORKPLANE/ZPLUS
    C1 =COMMENT/INPUT,YES,FULL SCREEN=NO,
    Inspectors Initials
    C2 =COMMENT/INPUT,YES,FULL SCREEN=NO,
    Finish S/N
    C4 =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Forging S/N
    C5 =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Forging Heat Code
    C6 =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Machine Operator
    ASSIGN/PNAM=GETTEXT("Part Name",0,"FILEHEDR")
    ASSIGN/REVNO=GETTEXT("Revision Number",0,"FILEHEDR")
    ASSIGN/OPNO=GETTEXT("Serial Number",0,"FILEHEDR")
    ASSIGN/STNO=GETTEXT("Statistics Count",0,"FILEHEDR")
    ASSIGN/PROGNAM=PNAM
    S_N =LABEL/
    IF_GOTO/C2.INPUT==0,GOTO = S_N
    TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Serial : C2.INPUT
    TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Operator : C1.INPUT
    ASSIGN/SERN=C2.INPUT
    ASSIGN/PATH="J:\PCDMIS Reports\XXXXXXXXXXX\\"
    ASSIGN/MYFILENAME=PROGNAM + "_" + SERN
    ASSIGN/MYFILENAME=PATH + MYFILENAME + ".RTF"
    [B]ASSIGN/WEILDSHEET="J:\PCDMIS Reports\XXXXXXXX\\"+"XXX_Weld"+"_"+SERN+".RTF"[/B]
    C3 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    DO YOU WANT TO RUN SETUP?
    
    Note: (Must run setup if this is the 1st part ran or part has been moved.)
    IF_GOTO/C3.INPUT=="YES",GOTO = SETUP
    GOTO/PROG
    SETUP =LABEL/

    The WeildSheet is what i want printed, and I'm declaring it here in the beginning of the program. Fast forward after the measurement routine:

    Code:
    EXTERNALCOMMAND/NO_DISPLAY, NO_WAIT ; C:\DILLON CMM FILES\DATAPAGE\DATAPAGESTATS.EXE
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=ON,OVERWRITE=MYFILENAME,AUTO OPEN REPORT=OFF,$
    TO_PRINTER=ON,COPIES=1,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME= ,$
    REPORT_THEORETICALS=ALL,REPORT_FEATURE_WITH_DIMENS IONS=NO,$
    TO_EXCEL_OUTPUT=OFF,
    PREVIOUS_RUNS=DELETE_INSTANCES
    ASSIGN/MYDATE=SYSTEMDATE("MM/dd/yyyy")
    CS2 =REPORT/CUSTOM, FILENAME=XXXX_Weld_Sheet, Section=-1
    PARAM/TEXT_1.TEXT=C2.INPUT
    PARAM/TEXT_2.TEXT="*"+C2.INPUT+"*"
    PARAM/TEXT_3.TEXT=C4.INPUT
    PARAM/TEXT_4.TEXT="*"+C4.INPUT+"*"
    PARAM/TEXT_5.TEXT=C5.INPUT
    PARAM/TEXT_6.TEXT="*"+C5.INPUT+"*"
    PARAM/TEXT_7.TEXT="XXXXXXXXX"
    PARAM/TEXT_8.TEXT="*"+"XXXXXXXX"+"*"
    PARAM/TEXT_9.TEXT="XXXXXXXXX"
    PARAM/TEXT_10.TEXT="*"+"XXXXXXXXXXX"+"*"
    PARAM/TEXT_11.TEXT=CIR_34_492_OD.DIAM
    PARAM/TEXT_12.TEXT="*"+CIR_34_492_OD.DIAM+"*"
    PARAM/TEXT_13.TEXT=V1
    PARAM/TEXT_14.TEXT="*"+V1+"*"
    PARAM/TEXT_15.TEXT=V5
    PARAM/TEXT_16.TEXT="*"+V5+"*"
    PARAM/TEXT_17.TEXT="FULL"
    PARAM/TEXT_18.TEXT="*"+"FULL"+"*"
    PARAM/TEXT_19.TEXT=C6.INPUT
    PARAM/BARCODEWIZ1.BARCODE=C2.INPUT+",XXXXXXXXXX,"+C4.INPUT+",XXXXXXXXXX,"+C5.INPUT+",FULL"
    PARAM/=
    ENDCUSTOM/
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=ON,OVERWRITE=WEILDSHEET,AUTO OPEN REPORT=OFF,$
    TO_PRINTER=ON,COPIES=1,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
    TO_EXCEL_OUTPUT=OFF,
    PREVIOUS_RUNS=DELETE_INSTANCES
    Any help is appreciated.

  • #2
    AFAIK, PC-DMIS won't print more than one report, regardless of number of print commands in the program. I don't know if that has changed in the later versions though.
    PC-DMIS CAD++ 2o19 R1 SP11

    Comment


    • #3
      Originally posted by Blockay View Post
      Hey folks,

      For some reason, as the title says, my secondary report wont save anywhere and it wont print either. I'm almost convinced that it isn't even being created. I've put "x"'s everywhere that a part number or confidential info is, just an FYI.

      Take a look at this code from the beginning of the program:

      Code:
      STARTUP =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
      ALIGNMENT/END
      MODE/MANUAL
      FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;MEAS,NOM,TOL,MAXMIN,DEV,OUTTOL,
      MOVESPEED/ 500
      TOUCHSPEED/ 2
      SCANSPEED/500
      ACCELERATION/MAXACCELX=500, MAXACCELY=500, MAXACCELZ=500
      LOADPROBE/HPSX1HS_3BY50MM
      TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
      COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
      PLACE PART IN CENTER OF TABLE WITH -A- (LONG LEG) DOWN,
      MAKE SURE YOU HAVE CLEARANCE FROM TOOL CHANGER!
      TOP OF PART IS MANUAL PLANE, INNER BORE IS MANUAL CIRCLE.
      PROGRAM USES HPSX1HS_3BY50MM AND HPSX1HS_5BY_50_90DEG PROBES
      WORKPLANE/ZPLUS
      C1 =COMMENT/INPUT,YES,FULL SCREEN=NO,
      Inspectors Initials
      C2 =COMMENT/INPUT,YES,FULL SCREEN=NO,
      Finish S/N
      C4 =COMMENT/INPUT,NO,FULL SCREEN=NO,
      Forging S/N
      C5 =COMMENT/INPUT,NO,FULL SCREEN=NO,
      Forging Heat Code
      C6 =COMMENT/INPUT,NO,FULL SCREEN=NO,
      Machine Operator
      ASSIGN/PNAM=GETTEXT("Part Name",0,"FILEHEDR")
      ASSIGN/REVNO=GETTEXT("Revision Number",0,"FILEHEDR")
      ASSIGN/OPNO=GETTEXT("Serial Number",0,"FILEHEDR")
      ASSIGN/STNO=GETTEXT("Statistics Count",0,"FILEHEDR")
      ASSIGN/PROGNAM=PNAM
      S_N =LABEL/
      IF_GOTO/C2.INPUT==0,GOTO = S_N
      TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Serial : C2.INPUT
      TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Operator : C1.INPUT
      ASSIGN/SERN=C2.INPUT
      ASSIGN/PATH="J:\PCDMIS Reports\XXXXXXXXXXX\\"
      ASSIGN/MYFILENAME=PROGNAM + "_" + SERN
      ASSIGN/MYFILENAME=PATH + MYFILENAME + ".RTF"
      [B]ASSIGN/WEILDSHEET="J:\PCDMIS Reports\XXXXXXXX\\"+"XXX_Weld"+"_"+SERN+".RTF"[/B]
      C3 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
      DO YOU WANT TO RUN SETUP?
      
      Note: (Must run setup if this is the 1st part ran or part has been moved.)
      IF_GOTO/C3.INPUT=="YES",GOTO = SETUP
      GOTO/PROG
      SETUP =LABEL/

      The WeildSheet is what i want printed, and I'm declaring it here in the beginning of the program. Fast forward after the measurement routine:

      Code:
      EXTERNALCOMMAND/NO_DISPLAY, NO_WAIT ; C:\DILLON CMM FILES\DATAPAGE\DATAPAGESTATS.EXE
      PRINT/REPORT,EXEC MODE=END,$
      TO_FILE=ON,OVERWRITE=MYFILENAME,AUTO OPEN REPORT=OFF,$
      TO_PRINTER=ON,COPIES=1,$
      TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME= ,$
      REPORT_THEORETICALS=ALL,REPORT_FEATURE_WITH_DIMENS IONS=NO,$
      TO_EXCEL_OUTPUT=OFF,
      PREVIOUS_RUNS=DELETE_INSTANCES
      ASSIGN/MYDATE=SYSTEMDATE("MM/dd/yyyy")
      CS2 =REPORT/CUSTOM, FILENAME=XXXX_Weld_Sheet, Section=-1
      PARAM/TEXT_1.TEXT=C2.INPUT
      PARAM/TEXT_2.TEXT="*"+C2.INPUT+"*"
      PARAM/TEXT_3.TEXT=C4.INPUT
      PARAM/TEXT_4.TEXT="*"+C4.INPUT+"*"
      PARAM/TEXT_5.TEXT=C5.INPUT
      PARAM/TEXT_6.TEXT="*"+C5.INPUT+"*"
      PARAM/TEXT_7.TEXT="XXXXXXXXX"
      PARAM/TEXT_8.TEXT="*"+"XXXXXXXX"+"*"
      PARAM/TEXT_9.TEXT="XXXXXXXXX"
      PARAM/TEXT_10.TEXT="*"+"XXXXXXXXXXX"+"*"
      PARAM/TEXT_11.TEXT=CIR_34_492_OD.DIAM
      PARAM/TEXT_12.TEXT="*"+CIR_34_492_OD.DIAM+"*"
      PARAM/TEXT_13.TEXT=V1
      PARAM/TEXT_14.TEXT="*"+V1+"*"
      PARAM/TEXT_15.TEXT=V5
      PARAM/TEXT_16.TEXT="*"+V5+"*"
      PARAM/TEXT_17.TEXT="FULL"
      PARAM/TEXT_18.TEXT="*"+"FULL"+"*"
      PARAM/TEXT_19.TEXT=C6.INPUT
      PARAM/BARCODEWIZ1.BARCODE=C2.INPUT+",XXXXXXXXXX,"+C4.INPUT+",XXXXXXXXXX,"+C5.INPUT+",FULL"
      PARAM/=
      ENDCUSTOM/
      PRINT/REPORT,EXEC MODE=END,$
      TO_FILE=ON,OVERWRITE=WEILDSHEET,AUTO OPEN REPORT=OFF,$
      TO_PRINTER=ON,COPIES=1,$
      TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
      REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
      TO_EXCEL_OUTPUT=OFF,
      PREVIOUS_RUNS=DELETE_INSTANCES
      Any help is appreciated.
      Just an observation, is it Weld or Weild there are both spellings ?

      Comment


      • Blockay
        Blockay commented
        Editing a comment
        Yep, the command is technically Weild, but I've got everything else programmed as the "weld" sheet. I usually copy/paste my commands (like this one) from another program into my new ones, but for some reason this one won't print properly.

    • #4
      Adding the custom report should make it print. Make sure the custom report command is marked for execution.
      I tried this with 2017 R2 SP12 with a simple program and both reports printed.

      Code:
      STARTUP =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
      ALIGNMENT/END
      MODE/DCC
      FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,TOL,MEAS,DEV,OUTTOL, ,
      LOADPROBE/LSPX1H_5BY50
      TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
      PNT1 =FEAT/CONTACT/VECTOR POINT/DEFAULT,CARTESIAN
      THEO/<12.966,-1.876,0.99>,<0.9697886,0,0.2439468>
      ACTL/<12.966,-1.876,0.99>,<0.9697886,0,0.2439468>
      TARG/<12.966,-1.876,0.99>,<0.9697886,0,0.2439468>
      SHOW FEATURE PARAMETERS=NO
      SHOW CONTACT PARAMETERS=NO
      DIM LOC1= LOCATION OF POINT PNT1 UNITS=MM ,$
      GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
      AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
      X 12.966 0.005 -0.050 12.966 0.000 0.000 --------#
      Y -1.876 0.005 -0.050 -1.876 0.000 0.000 --------#
      Z 0.990 0.005 -0.050 0.990 0.000 0.000 --------#
      T 0.000 0.005 -0.050 0.000 0.000 0.000 --------#
      END OF DIMENSION LOC1
      ASSIGN/FNAME1="D:\\PROBLEMREPORTS\\PRINTTEST\\TEST123.PDF "
      PRINT/REPORT,EXEC MODE=END,$
      TO_FILE=ON,OVERWRITE=FNAME1,AUTO OPEN REPORT=OFF,$
      TO_PRINTER=OFF,COPIES=1,$
      TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME= ,$
      REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
      TO_EXCEL_OUTPUT=OFF,
      PREVIOUS_RUNS=DELETE_INSTANCES
      ASSIGN/FNAME2="D:\\PROBLEMREPORTS\\PRINTTEST\\TEST12345.PDF"
      CS1 =REPORT/CUSTOM, FILENAME=Custom Report1, Section=-1
      PARAM/=
      ENDCUSTOM/
      PRINT/REPORT,EXEC MODE=END,$
      TO_FILE=ON,OVERWRITE=FNAME2,AUTO OPEN REPORT=OFF,$
      TO_PRINTER=OFF,COPIES=1,$
      TO_DMIS_REPORT=OFF,FILE_OPTION=APPEND,FILENAME=,$
      REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
      TO_EXCEL_OUTPUT=OFF,
      PREVIOUS_RUNS=DELETE_INSTANCES
      Last edited by SABarber; 02-26-2021, 12:41 PM.

      Comment

      Related Topics

      Collapse

      Working...
      X