Página 1 de 1

Imprimir tela diretamente na impressora

Enviado: 17 Jan 2008 12:50
por 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?

Enviado: 17 Jan 2008 13:29
por 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.

Imprimir tela diretamente na impressora

Enviado: 17 Jan 2008 13:53
por 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.

Enviado: 17 Jan 2008 14:01
por 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. :)

Enviado: 17 Jan 2008 19:04
por 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...

Enviado: 17 Jan 2008 19:37
por 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).

Enviado: 17 Jan 2008 19:57
por 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).

Enviado: 17 Jan 2008 21:35
por 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.