print screen to printer

[simontang_1]

Dear all,

I would like to print screen to my pinter, could anyone help me to solve this in my marco....

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf7]"

autECLSession.autECLOIS.WaitForAttrib 7,1,"00", "3c",3,10000

autECLSession.autECLOIS.WaitForCursor 7,2,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "s"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"

..........how to print screen here ?????


end sub

[Hack]

Welcome to the forums.

What is this macro written in? I do not recognize the syntax.

[Al42]

"LANGUAGE=VBSCRIPT"

The simplest way to print the screen is an Int 5, but since VBScript can't execute assembly code, you'd need an .exe or .com file to shell to that has that instruction.

[simontang_1]

Welcome to the forums.

What is this macro written in? I do not recognize the syntax.

That is recorded from AS400. I need to press f7...type "s"...then..enter

after that i want a screen print to my printer.

[simontang_1]

"LANGUAGE=VBSCRIPT"

The simplest way to print the screen is an Int 5, but since VBScript can't execute assembly code, you'd need an .exe or .com file to shell to that has that instruction.

thks! AL42.

how to do the .exe or .com file??? Please help...

[wasabite]

autECLSession.autECLOIS.SendKeys "[printps]"

[Shaggy Hiker]

The thread is ten years old, and the OP hasn't posted anything other than this thread. It's pretty unlikely that they will ever see any such answer.

Aside from that, it looks like it should be printsc, not printps.

[wasabite]

The thread is ten years old, and the OP hasn't posted anything other than this thread. It's pretty unlikely that they will ever see any such answer.

Aside from that, it looks like it should be printsc, not printps.

hi
i dont have seen the date, haha

in my scrypt i have ; pcLPS.SendKeys "[printps]"
pcOIA.WaitForAppAvailable
pcOIA.WaitForInputReady

it seem to work what the difference between both!?!

[passel]

I don't think there is a [printsc] Mnemonic for the SendKeys method on the AS400.
[printps] = Print Presentation Space, which is defined for the AS400, but not in other versions of VBSCRIPT SendKey methods such as for Oracle or Sun (Oracle and Sun may be based on the same implementation of VBSCRIPT).

I'm thinking that Shaggy Hiker was thinking of {PRTSC} which emulates pressing the Print Screen key on a PC.

Of course, there are probably even fewer AS400 users now than there was 10 years ago.