Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

TIA V12 PRO RUNTIME: Create report and send by email in PDF format

Created by: Enia at: 9/16/2013 11:57 AM (5 Replies)

Rating (0)

Thanks 2

6 Entries

9/16/2013 11:57 AM	Rate (0)
Enia Experienced Member Joined: 9/12/2008 Last visit: 10/21/2023 Posts: 73 Rating: (2)	Hello, Every day at 11.59 PM i create a report and send it to a printer. This works very good but i want to send this report by mail so i don't have to use paper. Right know i use PDFCreator to make a PDF file (with a printjob). But when i do that i get a blanco pdf file (without info). When i print with notepad or another application PDFCreator works good. My question are here people with experience with printing to PDF with TIA V12? Thank you

Suggestion To thank Quote Answer

9/16/2013 1:21 PM	Rate (0)
Tweety Posts: 3037 Rating: (192)	Hello, See the following link. http://support.automation.siemens.com/WW/view/en/64395675 Tweety
Tweety Posts: 3037 Rating: (192)
Suggestion To thank Quote Answer

9/16/2013 2:29 PM	Rate (0)
Enia Experienced Member Joined: 9/12/2008 Last visit: 10/21/2023 Posts: 73 Rating: (2)	Hello Tweety, Emailing is not my problem, my problem is how to print a WinCC in pdfcreator, because i get blanco pages. Thank you. Ps. i use the following email script (without using a dll, and i use an internal SMTP server): Sub Mail_PDF_OHD() Dim strFrom Dim strTo Dim strSub Dim strBody Dim strSMTP Dim objEmail strFrom = "xxxxx@xxxx.com" strTo = "xxxxx@xxxxx.com" strSub = "Rapportage storingen " & Now() strBody = "Zie bijlage voor de rapportage" 'Here you put either the IP number or name of the server "smtp.server.name" strSMTP = "xx.xx.xx.xx" Set objEmail = CreateObject("CDO.Message") objEmail.From = strFrom objEmail.To = strTo objEmail.Subject = strSub objEmail.Textbody = strBody objEmail.AddAttachment "C:\PDFFiles\Rapportage storingen.pdf" objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send End Sub

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Fxdhrs

9/18/2013 11:13 AM	Rate (0)
Tweety Posts: 3037 Rating: (192)	Hello, Do you define the pdfcreater as default printer in Windows? Tweety
Tweety Posts: 3037 Rating: (192)	Last edited by: Tweety at: 9/18/2013 11:13 AM
Suggestion To thank Quote Answer

9/26/2013 2:07 PM	Rate (0)
Enia Experienced Member Joined: 9/12/2008 Last visit: 10/21/2023 Posts: 73 Rating: (2)	Yes, but i found the fault. PDFcreator used a option (string) and i removed that and it works great. So no problem anymore! Thank you!

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users O_Moderator

10/16/2018 3:47 PM	Rate (0)
ELTAFA221 Posts: 6 Rating: (0)	Hello. I'm working in a project like yours. And i find the same problem you found. I wanted to know if it's possible to have an example of your project. Can you send it by mail? BR.
ELTAFA221 Posts: 6 Rating: (0)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

Follow us on