Imprimir com WordPad em qualquer impressora

[dbsh]

WordPad /pt arquivo.ext nome_da_impressora

EX: WordPad /pt c:\relatorio.rtf PDFCreator


/pt tem que ser minusculo
.ext pode ser DOC, TXT, RTF, qualquer extensão reconhecida pelo WordPad
nome da impressora igual esta instalada no windows, inclusive de rede, se tiver espaço "use aspas"

[lugab]

E quando não se sabe em qual pasta se encontra o wordpad.exe, como faz pra executar ele de dentro da aplicação harbour ?

Toda vez que eu tento abrir um arquivo .rtf , que aparece é o winword.exe

Isso acontece mesmo depois que eu fui em "abrir com", escolher "wordpad" e marca "abrir sempre com o msmo programa"

[ANDRIL]

E quando não se sabe em qual pasta se encontra o wordpad.exe

Geralmente uso o comando START WordPad para achá-lo automaticamente. As vezes falha, então ja mando um WORDPAD.EXE (padrao do XP) dentro da pasta do meu sistema, assim eu sei realmente onde encontra-lo.
Ou ache-o no MENU INICIAR -> TODOS OS PROGRAMAS -> ACESSORIOS -> CLIQUE BOTAO DIREITO SOBRE ELE, APONTAR DESTINO, abrira a pasta onde ele esta, copie o executável para a pasta do seu sistema.

Ate+

[Pablo César]

E quando não se sabe em qual pasta se encontra o wordpad.exe, como faz pra executar ele de dentro da aplicação harbour ?

Experimente este código, claro que adaptando as suas necessidades. Veja se chama o wordpad.exe ao invés do winword.exe em arquivos .rtf:

Código: Selecionar todos

PASTADORTF:=GetCurrentFolder()
IF ShellExecute(0, "open", "soffice.exe", "Print.rtf" , PASTADORTF , 1)<=32
   IF ShellExecute(0, "open", "WinWord.exe", "Print.rtf" , PASTADORTF , 1)<=32
      IF ShellExecute(0, "open", "Print.rtf" , PASTADORTF , , 1)<=32
         MSGINFO("Não foi localizado o programa associado à extensão RTF"+HB_OsNewLine()+HB_OsNewLine()+ ;
                        "El fichero se ha guardado en:"+HB_OsNewLine()+PASTADORTF+"\Print.rtf")
      ENDIF
   ENDIF
ENDIF

Este código foi utilizado no exemplo MiTPRINTO da Minigui. espero que seja útil (mesmo discordando da sua opinião sobre as Malvinas... rsrsrs viu ? não esqueci... kkk brincadeirinha, ok ? kkk)

[lugab]

Certo, Pablo, vou dar uma testada

obrigado