Imprimir tela diretamente na impressora

[pringles]

Pessoal, estou com uma dúvida: no Windows 98, pra imprimir uma tela DOS diretamente na impressora, eu utilizava SHIFT + PrintScreen.
No caso do WinXP, não funciona este atalho...
Existe algum outro meio, pra mandar uma tela DOS diretamente para a porta de impressão?

[Maligno]

Que tal uma gambiarra? Capturar a tela por SaveScreen, remover os códigos de cores e inserir as quebras de linhas:

Código: Selecionar todos

function CapScreen()
local cScr := ""
local cLin
local l,c
for l := 0 to 24
    cLin := SaveScreen(l,0,l,79)
    for c := 1 to 80
        cLin := Stuff(cLin,c+1,1,"")
    next
    cScr += cLin+Chr(13)+Chr(10)
next
return cScr

Daí é só mandar pra impressora normalmente, como qualquer relatório.

[Adalberto]

Pringles

Se a necessidade e imprimir a tela quando clipper da um mensagem de erro, pode capturar a tela (em modo janela) com a tecla PrintScreen sem Shift daí é só pegar em word é mandar a imprimir.

A gambiarra que propôs maligno e uma idéia fantástica, obrigado Paulo.

[Maligno]

Aliás, sem querer ser curioso, mas já sendo... Qual a necessidade de imprimir a tela? Dá uma impressão (sem trocadilho) de desperdício de árvore.

[Pablo César]

Tem o seguinte tópico que talvez esclareça maiores informações a respeito, inclusive tem os links onde pode ser instalado um aplicativo para tal finalidade, vale a pena conferir:

https://pctoledo.org/forum/viewto ... 6723#36723

de desperdício de árvore.

Seria muito conveniente para todos se puderem imprimir o menos possível (e as árvores agradecem também), mas dê sua razão assiim podemos dar uma sugestão alternativa, quem sabe...

[pringles]

Meu sistema gera um gráfico de movimento. O gráfico exibe mês a mês durante o ano, com o faturamento de cada mês.
Não inseri uma opção, ainda, de gerar um relatório a partir do gráfico.
Como o cliente precisa do relatório impresso com certa urgência, lembrei que com o SHIFT+PrintScreen conseguimos imprimir a tela. Sei que no Win98 funciona, já testei antes; o problema está no WinXP, que o atalho não funciona.
Salvando a tela e colando no Word podemos resolver o problema, mas sei que existe algum outro atalho (pelo menos já ouvi falar).
Se vocês souberem de algum atalho, me avisem; os clientes sentem um pouco de dificuldade em colar a tela no Word (pelo menos alguns deles).

[Pablo César]

Se a sua urgência é maior do que fazer uma rotina de captura e depois direcioná-la à impressora, então instale o PRINTNOW (dê uma olhada no link que eu tinha passado, leia na próxima mensagem minha).

[pringles]

Pablo, obrigado pela dica.
A urgência não é tanta assim, não é que não quero mexer nas rotinas.
Aliás, estou preparando as rotinas para gerar o gráfico também em relatório.
Mas, como fiquei bastante curioso, queria saber qual o atalho mais prático, quer dizer, como no Win98.