Skip to main content

RUMBA

  • April 24, 2015
  • 5 replies
  • 0 views
Dominique Sacre
Forum|alt.badge.img+2

Hello all.

I'm trying to print (to the default printer) a screenshot of RUMBA 8.1 through the script editor but am running into an issue. The code is as follows:

 

Sub Main

Dim SYMBOL as string
Dim CUSIP as string
Dim SYM as string
Dim APrintear as string

Set XLApp = CreateObject("Excel.Application") ' Create an EXCEL application
XLApp.Workbooks.Open Filename:="C:\\Users\\a267482\\Desktop\\BHIS-GET CUSIP FROM SYMBOL.xlsx"
XLApp.Visible = True
Set MYBook = XLApp.Workbooks("BHIS-GET CUSIP FROM SYMBOL.xlsx")
Set XLSheet = MYBook.Worksheets("Sheet1")

EMSetCursor 1,19
EMSendKey "BSECFIND"

for x=1 to 1

SYMBOL=XLSheet.cells(x,1).value
EMSetCursor 2,25
EMSendKey "<DELETE>" 
EMSendKey SYMBOL
EMSendKey "<ENTER>" 

EMReadScreen SYM, 13, 7,9

If trim(SYM)=SYMBOL then
EMReadScreen CUSIP, 9, 6,9
XLSheet.cells(x,2).value="'"&CUSIP
else
XLSheet.cells(x,2).value="Cusip not found"
End if

EMSetCursor 2,25

Next x

End Sub


#Rumba

5 replies

André Escudero

Hello all.

I'm trying to print (to the default printer) a screenshot of RUMBA 8.1 through the script editor but am running into an issue. The code is as follows:

 

Sub Main

Dim SYMBOL as string
Dim CUSIP as string
Dim SYM as string
Dim APrintear as string

Set XLApp = CreateObject("Excel.Application") ' Create an EXCEL application
XLApp.Workbooks.Open Filename:="C:\\Users\\a267482\\Desktop\\BHIS-GET CUSIP FROM SYMBOL.xlsx"
XLApp.Visible = True
Set MYBook = XLApp.Workbooks("BHIS-GET CUSIP FROM SYMBOL.xlsx")
Set XLSheet = MYBook.Worksheets("Sheet1")

EMSetCursor 1,19
EMSendKey "BSECFIND"

for x=1 to 1

SYMBOL=XLSheet.cells(x,1).value
EMSetCursor 2,25
EMSendKey "<DELETE>" 
EMSendKey SYMBOL
EMSendKey "<ENTER>" 

EMReadScreen SYM, 13, 7,9

If trim(SYM)=SYMBOL then
EMReadScreen CUSIP, 9, 6,9
XLSheet.cells(x,2).value="'"&CUSIP
else
XLSheet.cells(x,2).value="Cusip not found"
End if

EMSetCursor 2,25

Next x

End Sub


#Rumba

Hi ,

to print the content of a Rumba Session to a default printer can be solved differently.
The easiest way is to send CTRL P  = SendKeys("^P").
But this is not a screenshot (image) as you described in your question.
To handle text in the clipbord is not a problem but you want to do screenshot and this can be tricky.
I suggest to use an intermediate application to get the image and to print.
See below a working code snippet with MS Word. (don't worry Word is invisible)

The snippet takes a screentshot and send it to the Default Printer.

Hope it helps


Sub Main

   Dim objWD As Object
  
   SendKeys "%{PRTSC}"     'Take Screenshot

   Set objWD = CreateObject("Word.Application")
   objWD.Visible = False
   objWD.Documents.Add
   objWD.Selection.Paste
   objWD.Selection.TypeText "This is some text."
   objWD.ActiveDocument.Saved = True

   objWD.PrintOut

 
   objWD.Quit
  
   Set objWD = Nothing
End Sub

Dominique Sacre
Forum|alt.badge.img+2

Hello all.

I'm trying to print (to the default printer) a screenshot of RUMBA 8.1 through the script editor but am running into an issue. The code is as follows:

 

Sub Main

Dim SYMBOL as string
Dim CUSIP as string
Dim SYM as string
Dim APrintear as string

Set XLApp = CreateObject("Excel.Application") ' Create an EXCEL application
XLApp.Workbooks.Open Filename:="C:\\Users\\a267482\\Desktop\\BHIS-GET CUSIP FROM SYMBOL.xlsx"
XLApp.Visible = True
Set MYBook = XLApp.Workbooks("BHIS-GET CUSIP FROM SYMBOL.xlsx")
Set XLSheet = MYBook.Worksheets("Sheet1")

EMSetCursor 1,19
EMSendKey "BSECFIND"

for x=1 to 1

SYMBOL=XLSheet.cells(x,1).value
EMSetCursor 2,25
EMSendKey "<DELETE>" 
EMSendKey SYMBOL
EMSendKey "<ENTER>" 

EMReadScreen SYM, 13, 7,9

If trim(SYM)=SYMBOL then
EMReadScreen CUSIP, 9, 6,9
XLSheet.cells(x,2).value="'"&CUSIP
else
XLSheet.cells(x,2).value="Cusip not found"
End if

EMSetCursor 2,25

Next x

End Sub


#Rumba

Thanks Andre.

The suggestions did not work.  SendKeys("^P") passes "^P" as if it were a string, and the objWD solution does not print anything at all.

Dominique Sacre
Forum|alt.badge.img+2

Hello all.

I'm trying to print (to the default printer) a screenshot of RUMBA 8.1 through the script editor but am running into an issue. The code is as follows:

 

Sub Main

Dim SYMBOL as string
Dim CUSIP as string
Dim SYM as string
Dim APrintear as string

Set XLApp = CreateObject("Excel.Application") ' Create an EXCEL application
XLApp.Workbooks.Open Filename:="C:\\Users\\a267482\\Desktop\\BHIS-GET CUSIP FROM SYMBOL.xlsx"
XLApp.Visible = True
Set MYBook = XLApp.Workbooks("BHIS-GET CUSIP FROM SYMBOL.xlsx")
Set XLSheet = MYBook.Worksheets("Sheet1")

EMSetCursor 1,19
EMSendKey "BSECFIND"

for x=1 to 1

SYMBOL=XLSheet.cells(x,1).value
EMSetCursor 2,25
EMSendKey "<DELETE>" 
EMSendKey SYMBOL
EMSendKey "<ENTER>" 

EMReadScreen SYM, 13, 7,9

If trim(SYM)=SYMBOL then
EMReadScreen CUSIP, 9, 6,9
XLSheet.cells(x,2).value="'"&CUSIP
else
XLSheet.cells(x,2).value="Cusip not found"
End if

EMSetCursor 2,25

Next x

End Sub


#Rumba

you could try

EMSendKey  "<Print>"

André Escudero

Hello all.

I'm trying to print (to the default printer) a screenshot of RUMBA 8.1 through the script editor but am running into an issue. The code is as follows:

 

Sub Main

Dim SYMBOL as string
Dim CUSIP as string
Dim SYM as string
Dim APrintear as string

Set XLApp = CreateObject("Excel.Application") ' Create an EXCEL application
XLApp.Workbooks.Open Filename:="C:\\Users\\a267482\\Desktop\\BHIS-GET CUSIP FROM SYMBOL.xlsx"
XLApp.Visible = True
Set MYBook = XLApp.Workbooks("BHIS-GET CUSIP FROM SYMBOL.xlsx")
Set XLSheet = MYBook.Worksheets("Sheet1")

EMSetCursor 1,19
EMSendKey "BSECFIND"

for x=1 to 1

SYMBOL=XLSheet.cells(x,1).value
EMSetCursor 2,25
EMSendKey "<DELETE>" 
EMSendKey SYMBOL
EMSendKey "<ENTER>" 

EMReadScreen SYM, 13, 7,9

If trim(SYM)=SYMBOL then
EMReadScreen CUSIP, 9, 6,9
XLSheet.cells(x,2).value="'"&CUSIP
else
XLSheet.cells(x,2).value="Cusip not found"
End if

EMSetCursor 2,25

Next x

End Sub


#Rumba

Hi Jose_Leon,

my mistake the syntax should be:  SendKeys "^ (p)"

EMSendKey  "<Print>" as suggested by Adrian works as well.

I re-tested the objWD Solution and it works as well. The solution requires a local Installation of Microsoft Word in order to work.

But you can take the concept and replace word by another application that supports Automation.

Dominique Sacre
Forum|alt.badge.img+2

Hello all.

I'm trying to print (to the default printer) a screenshot of RUMBA 8.1 through the script editor but am running into an issue. The code is as follows:

 

Sub Main

Dim SYMBOL as string
Dim CUSIP as string
Dim SYM as string
Dim APrintear as string

Set XLApp = CreateObject("Excel.Application") ' Create an EXCEL application
XLApp.Workbooks.Open Filename:="C:\\Users\\a267482\\Desktop\\BHIS-GET CUSIP FROM SYMBOL.xlsx"
XLApp.Visible = True
Set MYBook = XLApp.Workbooks("BHIS-GET CUSIP FROM SYMBOL.xlsx")
Set XLSheet = MYBook.Worksheets("Sheet1")

EMSetCursor 1,19
EMSendKey "BSECFIND"

for x=1 to 1

SYMBOL=XLSheet.cells(x,1).value
EMSetCursor 2,25
EMSendKey "<DELETE>" 
EMSendKey SYMBOL
EMSendKey "<ENTER>" 

EMReadScreen SYM, 13, 7,9

If trim(SYM)=SYMBOL then
EMReadScreen CUSIP, 9, 6,9
XLSheet.cells(x,2).value="'"&CUSIP
else
XLSheet.cells(x,2).value="Cusip not found"
End if

EMSetCursor 2,25

Next x

End Sub


#Rumba

Andre/Adrian, that worked.

Thanks a lot!

Recent badge winners

Explore all badges
Terms & ConditionsAccessibility statement