09-04-2015 06:51 AM
Hello,
I recently installed DIAdem 2015 64 bit on a clients machine and he can no longer print .pdf reports on his original 32 bit 2012 version of DIAdem as well as in the 2015 version I just installed.
When we try to print a report to a pdf we get the following error
" Printer not activated, error code -41"
We are to print to .ppt and .xml
We are able to print to .pdf in other applications/
In addition we do not have the ability to add script shortcuts to his 2015 verison of DIAdem. I am not sure if this is an bug or a change in features to 2015 BASIC version of DIAdem.
Thanks
09-07-2015 03:49 PM
Hi Tim,
Try closing all DIAdem versions, then go to the Windows list of printers and delete the DIAdem PDF Printer. Now relaunch DIAdem 2012 and see if that helps.
I am uunaware of any changes in DIAdem 2015 designed to prohibit script shortcut keys for the Base edition.
Brad Turpin
DIAdem Product Support Engineer
National Instruments
09-14-2015 01:59 PM
Brad
I am able to print .pdf files again thanks!
However my clients 2015 base verison does not allow him to access to the script shortcuts.
Since you have confimred this is not a change in the features available to DIadem then it must be a bug or incorrect setting?
09-15-2015 08:09 AM
Hi Tim,
What you are seeing is very similar to the following forum:
http://forums.ni.com/t5/DIAdem/Script-button-on-panel-bar-greyed-out/td-p/3159650
DIAdem Base allows the user to run scripts, but the shortcut features involved in creating scripts are available only in Advanced and Professional Editions. This link details this more:
Hope that helps provide context!
Michael
09-15-2015 09:54 AM
SO how does a user run scripts in diadem base if the shortcut tab is greyed out?
Also
This functionality was available in the 2012 base version my clients were using.
09-16-2015 10:14 AM
A user with DIAdem Base can double click on a .vbs file and run it, but to have access to the scripting feature themselves one would need Advanced or Professional. This was the case in prior versions of DIAdem as well, so if a client had access to scripting features then they would have had a license higher than Base.
09-16-2015 11:53 AM
This isn't what I am seeing with my 2012 basic users.
They are able to set and have acess to the script shortcuts which are actuated by pressing the "shift" plus the coressponding F key. The script short cuts are greyed out and do not allow the user to create any short cuts.
Below is a screen shot of the shortcut location I am refereing to (not greyed out). All of my 2012 clients are able to add or remove shortcut links to scripts here but non of my 2015 clients can.
09-17-2015 07:15 AM
Hi Tim,
The greyed out icon in DIAdem 2015 that was active in DIAdem 2012 is simply a bug in DIAdem 2015. We apologize for the hassle, it will be fixed in DIAdem 2015 SP1, which will be released soon. In the meantime let me know if you want assistance configuring your DIAdem 2015 Base versions to add a custom icon at startup as a workaround.
Brad Turpin
DIAdem Product Support Engineer
National Instruments
09-17-2015 07:35 AM
Sounds good Brad.
ANy help with the custom icon would be appricated.
09-17-2015 02:34 PM
Hi Tim,
Save this code to a *.VBS file, then run it once in DIAdem to add the icon. For your DIAdem 2015 Base version, you will need to configure this script to run automatically on startup in the DIAdem Settings dialog.
Call AddPanelIcon() Call FileNameGet("ANY", "FileRead", ScriptReadPath, "VBScript,*.VBS", , , "Select the VBScript to Run") IF DlgState = "IDOk" THEN Call ScriptStart(FileDlgFileName) Sub AddPanelIcon() Dim ButtonIDs, ButtonNames, ButtonIcons, ButtonScripts ButtonIDs = Array("Separator", "RunVBScript") ButtonNames = Array("", "Run VBScript") ButtonIcons = Array("", "SCRAutVBSStartFile.ico") ButtonScripts = Array("", AutoActPath & AutoActName & ".VBS") Call AddActionObjects(ButtonIDs, ButtonNames, ButtonIcons, ButtonScripts) Call AddButtons(BarManager.Bars("DIAPanels"), ButtonIDs, Array(1, 1)) End Sub ' AddViewIcon() Function AddActionObjects(ButtonIDs, ButtonNames, ButtonIcons, ButtonScripts) Dim j, iMax, jMax, ActionObjects, ActionObj ActionObjects = Array("") IF IsArray(ButtonIDs) THEN jMax = UBound(ButtonIDs) ReDim ActionObjects(jMax) ReDim Preserve ButtonNames(jMax) ReDim Preserve ButtonIcons(jMax) ReDim Preserve ButtonScripts(jMax) FOR j = 1 TO jMax IF ButtonIDs(j) <> "" THEN IF BarManager.ActionObjs.Exists(ButtonIDs(j)) THEN Set ActionObj = BarManager.ActionObjs(ButtonIDs(j)) Call BarManager.ActionObjs.Remove(ButtonIDs(j)) END IF Set ActionObjects(j) = BarManager.ActionObjs.Add(ButtonIDs(j), "CustomButton") ActionObjects(j).ToolTip = ButtonNames(j) IF Left(ButtonScripts(j), 11) = "BarManager." THEN ActionObjects(j).OnClickCode.Code = ButtonScripts(j) ELSE ActionObjects(j).OnClickCode.Code = "Call ScriptStart(""" & ButtonScripts(j) & """)" END IF ActionObjects(j).Picture = ButtonIcons(j) END IF ' ButtonIDs(j) <> "" NEXT ' j END IF ' IsArray(ButtonIDs) AddActionObjects = ActionObjects End Function ' AddActionObjects() Function AddButtons(Bar, ButtonIDs, ButtonFlags) Dim j, iMax, jMax, Buttons Buttons = Array("") IF IsArray(ButtonIDs) THEN jMax = UBound(ButtonIDs) ReDim Buttons(jMax) ReDim Preserve ButtonFlags(jMax) FOR j = jMax TO 1 Step -1 IF Bar.UsedActionObjs.Exists(ButtonIDs(j)) THEN Call Bar.UsedActionObjs.Remove(ButtonIDs(j)) END IF NEXT ' j iMax = Bar.UsedActionObjs.Count IF NOT Bar.UsedActionObjs(iMax).ID = "Separator" AND ButtonIDs(0) = "Separator" THEN Call Bar.UsedActionObjs.Add("Separator") END IF FOR j = 1 TO jMax IF (ButtonFlags(j)) THEN Call Bar.UsedActionObjs.Add(ButtonIDs(j)) NEXT ' j END IF ' IsArray(ButtonIDs) AddButtons = Buttons End Function ' AddButtons()
Brad Turpin
DIAdem Product Support Engineer
National Instruments