Emerson Exchange 365

Printing in deltaV

Printing in deltav

Usually the operator interface background is gray. How can change the background to white in printing? for example writing script to change the background when push the printing button on tool bar to save the printer toner (only change the background in Hardcopy).

• Printing in deltaV

Jim Cahill

• 17 Oct 2012 3:30 PM
• Cancel

3 Replies

• Michael Moody

  

  • 17 Oct 2012 4:15 PM

  There was a KBA published in 2002 describing how to do this.  If the link below doesn't work, lookup "AUS1-110-020114084027" on the Foundation Support Site.  
  
  http://www3.emersonprocess.com/Systems/Support/documentation/deltav/kba/AUS1-110-020114084027/carticle.asp?qsproductlineid=2

  
  
  
  
  From:        "mohsen" <bounce-mohsen@community.emerson.com>
  To:        <DeltaV@community.emerson.com>
  Date:        10/17/2012 10:31 AM
  Subject:        [EE365 DeltaV Track] Printing in deltaV
  

  ---

  
  
  
  Printing in deltav

  Usually the operator interface background is gray. How can change the background to white in printing? for example writing script to change the background when push the printing button on tool bar to save the printer toner (only change the background in Hardcopy).

  • Cancel
• Roman Kostuniak

  

  • 18 Oct 2012 11:54 AM

  In reply to Michael Moody:

  Private Sub bmpPrintMain_Click()

  On Error GoTo ErrorHandler

     'frsPrintMainPicture pn_MyMonitor.CurrentValue

     Dim strDefColor As String

     Dim strPicName As String

     Dim curObj As Object

     If pn_MyMonitor.CurrentValue = 2 Then

         strPicName = frsVariables.gs_mainCurrent2.CurrentValue

     Else

         strPicName = frsVariables.gs_mainCurrent.CurrentValue

     End If

     If frsObjExists(strPicName, , curObj) Then

         strDefColor = curObj.BackgroundColor

         curObj.Parent.ActiveWindow.Active = True

         curObj.BackgroundColor = vbWhite

         'SendKeys "{Enter}", False

         Application.ActiveDocument.Printout

         curObj.BackgroundColor = strDefColor

     End If

  Exit Sub

  ErrorHandler:

     HandleError

  End Sub

  • Cancel
• Jim Cahill

  

  • 21 Oct 2012 4:07 PM

  In reply to Michael Moody:

  I did not access to foundation  support , can you send document?

  • Cancel