Jump to content
Fivewin Brasil

jarmo

Membros
  • Posts

    32
  • Joined

  • Last visited

Everything posted by jarmo

  1. Kapiaba, boa tarde: Segue abaixo o Código! #include "fivewin.ch" FUNCTION CorelInvoice() LOCAL oPrn, oFont, oIni, oPrinter local n := 100, nLineas := 10, nRow, nCol PRINTER oPrn //PREVIEW DEFINE FONT oFont NAME "Times New Roman" SIZE 0,-12 OF oPrn oPrn:SetFont(oFont) PAGE oPrn:ImportWMF("invoice.Wmf") oPrn:CmSay(4.3, 1.7 , "Computer Associates") // company name oPrn:CmSay(5.5, 1.7 , "Somewhere in U.S.A.") // adress oPrn:CmSay(7 , 1.7 , "0001") // reference nRow := 7 DO WHILE nLineas > 0 .AND. N > 0 oPrn:CmSay(nRow , 4.2 , "Software consulting") // description oPrn:CmSay(nRow ,18.5 , "0") // price nLineas-- n-- nRow += (oFont:nHeight*10*oPrn:nVertRes()/oPrn:nVertSize()) ENDDO nLineas := 10 IF N < 0 oPrn:CmSay(16 ,18.5 , "0") // total ENDIF ENDPAGE ENDPRINT oFont:End() Msginfo("Word done, look at your printer") RETURN NIL Obs: Se utilizo o arquivo INVOICE.WMF que veio originalmente como exemplo, funciona OK; mas se tento alterá-lo pelo Corel 11, o programa acima passa a dar erro: Operação ilegal. Grato! Rodrigues Clipper5.2d+Blinker4.10+FW1.9.2
  2. Kleyton, boa tarde! O erro ocorre quando estou tentando utilizar no meu programa. (No Corel salvo normalmente como tipo WMF).
  3. Pessoal, que todos estejem bem! Por gentileza alguém poderia me dar maiores informações na utilização de arquivos com extensão WMF para impressão? Por exemplo temos um exemplo COREL.PRG que utiliza o arquivo INVOICE.WMF e que por sinal funciona bem. Minha dúvida é, que Utilitário utilizar para poder criar um arquivo c/extensão WMF e possa ser impresso via FiveWin? Tentei criar um arquivo através do Corel Draw 11, mas não sei se é problema com versão mas este arquivo provoca um erro de operação ilegal. Grato! Rodrigues
  4. jarmo

    Email

    Olá pessoal, tudo bem com todos? Por gentileza, alguém poderia nos auxiliar quanto à uma rotina de envio de email interativa ou não com anexo. Estou tentando utilizar o exemplo TESTMAIL.PRG, sendo que no micro da minha casa estava funcionando, mas na empresa um micro retorna status = 2 e outro retorna status = -1; que caminho seguir? Será que tem alguma coisa a ver com o MAPI.DLL? 16/32 bits? Socorro!!! Grato! jarmo
  5. Pessoal, por gentileza alguém poderia me dizer como é que faço para capturar a tecla Page Down em um dialogo na entrada de um Get e que eu possa saber em qual Get estava? Grato! Jarmo
×
×
  • Create New...