Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

Printscreen to 2 printers with 1 button action

Created by: SteBo at: 6/7/2011 10:20 PM (9 Replies)

Rating (3)

Thanks 6

10 Entries

6/7/2011 10:20 PM	Rate (0)
SteBo Platinum Member Joined: 10/3/2010 Last visit: 11/18/2024 Posts: 1563 Rating: (192)	I have a print-button on my header picture, which prints the runtime screen to the default printer, with landscape settings. Now I wonder if it's possible to have 2 actions behind this single click button: print to the default printer save the same runtime image as pdf / jpg in a predefined folder I think it might be possible. What if I install a pdf-printer as well, maybe I can change the default printer in the script & print the runtime picture twice? Any working idea's or samples would be very welcome. Thanks in advance. PS: it doesn't really matter if it's C or VBS, as long as it does the job.
	B r g d s , S t e B o SIMATIC HMI in Online Support Forum
Suggestion To thank Quote Answer

6/8/2011 4:27 AM	Rate (0)
Niranjan Prasad Posts: 691 Rating: (37)	SteBo I have a print-button on my header picture, which prints the runtime screen to the default printer, with landscape settings. Now I wonder if it's possible to have 2 actions behind this single click button: print to the default printer save the same runtime image as pdf / jpg in a predefined folder I think it might be possible. What if I install a pdf-printer as well, maybe I can change the default printer in the script & print the runtime picture twice? Any working idea's or samples would be very welcome. Thanks in advance. PS: it doesn't really matter if it's C or VBS, as long as it does the job. Hey SteBo I don't think you can achieve your goal, as printer selection is a Windows based. I allows only one Printer at a time
Niranjan Prasad Posts: 691 Rating: (37)
Suggestion To thank Quote Answer

6/8/2011 6:37 AM	Rate (0)
Komi Posts: 291 Rating: (69)	Hi SteBo, I believe you know how to assign the Default Printer dynamically by doing like: '------------------------------------------------------------------------------------------------------------ strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = 'ScriptedPrinter'") 'Select/assign the printer here! For Each objPrinter in colInstalledPrinters objPrinter.SetDefaultPrinter() Next '--------------------------------------------------------------------------------------------------------------- So ~ your may set the DefaultPrinter alternatively~ before sending your printing job. B.R., Komi
Komi Posts: 291 Rating: (69)	Last edited by: Komi at: 6/8/2011 6:41 AM BTW,... I don''''t think you need to do this because ~ the "Hardcopy" doesn''''t need to be printed through a physical printer.
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users SteBo

6/8/2011 6:44 AM	Rate (0)
aikona Posts: 487 Rating: (36)	Hi SteBo SteBo .... I wonder if it's possible to have 2 actions behind this single click button: print to the default printer save the same runtime image as pdf / jpg in a predefined folder I think it might be possible. What if I install a pdf-printer as well.... Could install something like primopdf here is some vb code that could help you along ( just google for VBS and slect printer or multiple printers) dim myprinter as string dim printer_name as sttring printer_name ="name goes here" myprinter = Application.ActivePrinter Change_Form.PrintOut Preview:=False, ActivePrinter:=printer_name, PrintToFile:=True, PrToFileName:=PSFileName Application.ActivePrinter = myprinter bye Eric
aikona Posts: 487 Rating: (36)
Suggestion To thank Quote Answer

6/8/2011 7:50 AM	Rate (0)
SteBo Platinum Member Joined: 10/3/2010 Last visit: 11/18/2024 Posts: 1563 Rating: (192)	Komi Hi SteBo, I believe you know how to assign the Default Printer dynamically by doing like: '------------------------------------------------------------------------------------------------------------ strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = 'ScriptedPrinter'") 'Select/assign the printer here! For Each objPrinter in colInstalledPrinters objPrinter.SetDefaultPrinter() Next '--------------------------------------------------------------------------------------------------------------- So ~ your may set the DefaultPrinter alternatively~ before sending your printing job. B.R., Komi Thanks Komi. Fyi, I'm not a scripting expert but I'll try experimenting with this
	B r g d s , S t e B o SIMATIC HMI in Online Support Forum
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Komi

6/8/2011 10:34 AM	Rate (3)
SteBo Platinum Member Joined: 10/3/2010 Last visit: 11/18/2024 Posts: 1563 Rating: (192)	Attaching sort of manual for this. All credits go to Komi Attachment WinCC 7 - Change Default Printer.pdf (676 Downloads)
	B r g d s , S t e B o SIMATIC HMI in Online Support Forum
Suggestion To thank Quote Answer
This contribution was helpful to 4 thankful Users aikona Skata Komi Brenton88

6/9/2011 4:55 AM	Rate (0)
Komi Posts: 291 Rating: (69)	Hi SteBo, Thanks you!! I'm much flattered again. Your achievment all because of your efforts! Nice job!! I would like to give you "real five starts" via VBA in WinCC Graphics Designer. Please be looking forward to!! Thanks & regards, Komi
Komi Posts: 291 Rating: (69)
Suggestion To thank Quote Answer

6/9/2011 8:08 AM	Rate (0)
SteBo Platinum Member Joined: 10/3/2010 Last visit: 11/18/2024 Posts: 1563 Rating: (192)	Komi I would like to give you "real five starts" via VBA in WinCC Graphics Designer. Please be looking forward to!! I'm already looking Thanks in advance
	B r g d s , S t e B o SIMATIC HMI in Online Support Forum
Suggestion To thank Quote Answer

6/15/2011 10:39 AM	Rate (0)
Komi Posts: 291 Rating: (69)	SteBo Komi I would like to give you "real five starts" via VBA in WinCC Graphics Designer. Please be looking forward to!! I'm already looking Thanks in advance Hi SteBo, Sorry for my terrible delay! Here's coming my stars for you! Please copy the attached .pdl to your GraCS folder, open it with Graphics Designer. Pay attention to the "newly came" MenuItem there! Press the button then you'll see the stars for you! I counted... It "looks" like that I still owe you two stars. Well ~ maybe another day & another format! Best regards, Komi Attachment Stars_ForSteBo.zip (264 Downloads)
Komi Posts: 291 Rating: (69)	Last edited by: Komi at: 6/15/2011 3:44 PM Please forgive my non-constructal VBA coding inside. ;D I was just testing & seeing the posibilty of "Graphics" VBA ;-)
Suggestion To thank Quote Answer

5/11/2017 12:42 PM	Rate (0)
Gabrielle Member Joined: 12/2/2016 Last visit: 9/14/2023 Posts: 1 Rating: (0)	Hi ("Select * from Win32_Printer Where Name = 'ScriptedPrinter'") 'Select/assign the printer here! I was trying this script but it gives me an error with this statement, it says"statement expected" I cannot figure out what the problem is?

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

WinCC Installation Options General

Follow us on