Página 1 de 1

Imprimir com WordPad em qualquer impressora

Enviado: 12 Abr 2011 21:16
por 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"

Imprimir com WordPad em qualquer impressora

Enviado: 19 Mai 2012 05:48
por 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"

Imprimir com WordPad em qualquer impressora

Enviado: 19 Mai 2012 14:29
por ANDRIL
lugab escreveu: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+

Imprimir com WordPad em qualquer impressora

Enviado: 19 Mai 2012 23:25
por Pablo César
lugab escreveu: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)

Imprimir com WordPad em qualquer impressora

Enviado: 14 Jun 2012 00:21
por lugab
Certo, Pablo, vou dar uma testada

obrigado