WIN32PRN e VISUAL LIB

[EANDRIOLI]

BOA NOITE SENHORES CLIPPEIROS (OU MELHOR, XHARBEIROS...RSS)

HÁ TEMPOS QUE NAO USO O FORUM, MÁS SOU VELHO CADASTRADO.

TENHO UNS PROBLEMAS:

ESTOU PASSANDO DO CLIPPER P/ XHARBOUR... PARA SAIR DOS PROBLEMAS COM IMPRESSORAS USB... TAMBEM USO A VL2.

GOSTARIA DA AJUDA DOS SENHORES PARA O SEGUINTE:

- ONDE ENCONTRAR EXEMPLOS FACEIS PARA USO DA VISUAL LIB P/ XHARBOUR... GOSTARIA QUE POSTASSEM EXEMPLOS PRATICOS AQUI NO FORUM... COMO USAR O DESKTOP("...") PELO XHARBOUR.

- OUTRA COISA, AS LIBS DA VISUAL LIB, QUAIS SÃO ELAS OU QUAL? PORQUE NO SITE DO CACLIPPER BAIXEI UM COMPACTADO QUE TEM UMAS 10 LIBS, QUAL USAR??? ONDE ENCONTRAR A CORRETA?

- TAMBÉM BAIXEI UM DOC AJUDA PARA O XHARBOUR QUE TEM UM EXEMPLO DE USO DA WIN32PRN... MÁS ELE FAZ REFERENCIA UM ARQUIVO .CH QUE NÃO EXISTE NO DIRETORIO DO BCC55 (O QUE EXISTE LÁ TEM EXTENSÃO .H), INCLUSIVE SE EU RENOMEAR O ARQUIVO E COMPILAR, OCORRE O SEGUINTE ERRO:

xHarbour Compiler build 0.99.70 (SimpLex)
Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'TESTE.PRG'...

TESTE.PRG(1) Error E0030 Syntax error: "syntax error at 'EXAMPLE'"

TESTE.PRG(5) Error F0001 Can't open #include file: 'WinGdi.ch'; No such file or directory

... ONDE ENCONTRAR O ARQUIVO CORRETO = WINGDI.CH

- E FINALIZANDO, FIZ UNS TESTES PARA IMPRESSÃO PELO XHARBOUR E NOTEI QUE O ARQUIVO VAI PARA O SPOOL DE IMPRESSAO NO GERENCIADOR, MÁS O DOCUMENTO NÃO É IMPRESSO, E NEM CONSIGO EXCLUIR ELE DEPOIS QUE VAI PRA LÁ. SERÁ DEVIDO AO MODO RAW?

GOSTARIA DA AJUDA DOS MODERADORES E DOS DEMAIS COLEGAS.

ABRAÇOS E AGRADEÇO DESDE JÁ O EMPENHO DE TODOS.

ERASMO ANDRIOLI

[ederxc]

Poste como esta mandando para impressora , nos deixe ver seu fonte ! E qual a versão de seu XH



Sobre a LIB visual me parece que voce não sabe com certeza qual usar
esta VL se não me engano é comercial, assim como a FW e minigui.
Free temos:HWgui, GTWvW" WVWtools", não se se tem mais !



té++



-:]

[EANDRIOLI]

Companheiro...

Eu não sei se a Visual Lib 2 é free ou não, sei que uso ela no Clipper e funciona sem problemas usando o comando de tela DESKTOP().

Eu quero usar também pelo XHArbour más não sei em qual LIB VL está esse tal comando, quero mudar p/ HB e continuar com meus fontes sem precisar mexer muito.

Logo vou postar o fonte que é um exemplo do proprio HB.

Abraços

[ederxc]

Companheiro...

Eu não sei se a Visual Lib 2 é free ou não, sei que uso ela no Clipper e funciona sem problemas usando o comando de tela DESKTOP().

Eu quero usar também pelo XHArbour más não sei em qual LIB VL está esse tal comando, quero mudar p/ HB e continuar com meus fontes sem precisar mexer muito.

Logo vou postar o fonte que é um exemplo do proprio HB.

Abraços

Quanto a VL sinto em não poder lhe ajudar pois nunca vi na minha frente esta lib grafica , mas da um tempinho que aqui tem gente que a conhece bem...

...Quanto ao problema da impressora só falta postar o fonte mesmo


Grande abraço !



:)Pos

[janio]

Colega,

A Visual Lib para xharbour que pode ser baixada em http://www.sqllib.com.br/download.php?id=TOOLS é totalmente compível com a que vc utiliza no Clipper. É só usar da mesma maneira. Sem botar nem tirar.

Quanto a saber qual usar, é simples: DEPENDE DA VS DO XHARBOUR que vc tá usando. Se vc estiver usando a vs. 99.70, use a Visual Lib correspondente, por exemplo.

Jânio

[sygecom]

- ONDE ENCONTRAR EXEMPLOS FACEIS PARA USO DA VISUAL LIB P/ XHARBOUR... GOSTARIA QUE POSTASSEM EXEMPLOS PRATICOS AQUI NO FORUM... COMO USAR O DESKTOP("...") PELO XHARBOUR.

Me chama no MSN que te envio uns exemplos de uso da VL no xharbour.
MSN=suporte@sygecom.com.br

- OUTRA COISA, AS LIBS DA VISUAL LIB, QUAIS SÃO ELAS OU QUAL? PORQUE NO SITE DO CACLIPPER BAIXEI UM COMPACTADO QUE TEM UMAS 10 LIBS, QUAL USAR??? ONDE ENCONTRAR A CORRETA?

No site do Vailton tem as LIB mas se prescisar prende o Grito que lhe envio.

- TAMBÉM BAIXEI UM DOC AJUDA PARA O XHARBOUR QUE TEM UM EXEMPLO DE USO DA WIN32PRN... MÁS ELE FAZ REFERENCIA UM ARQUIVO .CH QUE NÃO EXISTE NO DIRETORIO DO BCC55 (O QUE EXISTE LÁ TEM EXTENSÃO .H), INCLUSIVE SE EU RENOMEAR O ARQUIVO E COMPILAR, OCORRE O SEGUINTE ERRO:

xHarbour Compiler build 0.99.70 (SimpLex)
Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'TESTE.PRG'...

TESTE.PRG(1) Error E0030 Syntax error: "syntax error at 'EXAMPLE'"

TESTE.PRG(5) Error F0001 Can't open #include file: 'WinGdi.ch'; No such file or directory

... ONDE ENCONTRAR O ARQUIVO CORRETO = WINGDI.CH

Esse se encontra na pasta "XHARBOUR\INCLUDE"

- E FINALIZANDO, FIZ UNS TESTES PARA IMPRESSÃO PELO XHARBOUR E NOTEI QUE O ARQUIVO VAI PARA O SPOOL DE IMPRESSAO NO GERENCIADOR, MÁS O DOCUMENTO NÃO É IMPRESSO, E NEM CONSIGO EXCLUIR ELE DEPOIS QUE VAI PRA LÁ. SERÁ DEVIDO AO MODO RAW?

Post o exemplo ou faça como postei na sessão codigo fonte

[EANDRIOLI]

// The example demonstrates basic print output using different
// fonts, colors and graphical elements.
// Note: create the EXE using the -gui switch

#include "WinGdi.ch"

#define RGB_BLACK RGB( 0, 0, 0 )
#define RGB_RED RGB( 255, 0, 0 )
#define RGB_GREEN RGB( 0,255, 0 )
#define RGB_BLUE RGB( 0, 0,255 )
#define RGB_CYAN RGB( 0,255,255 )
#define RGB_YELLOW RGB( 255,255, 0 )
#define RGB_MAGENTA RGB( 255, 0,255 )
#define RGB_WHITE RGB( 255,255,255 )


PROCEDURE Main
LOCAL cPrinter := "EPSON Stylus DX5000 Series"
LOCAL oPrinter
LOCAL aFonts, cFont, nFont

// Create printer object and configure print job
oPrinter := Win32Prn():new( cPrinter )
oPrinter:landscape := .F.
oPrinter:formType := DMPAPER_A4
oPrinter:copies := 1

// Create device context
IF .NOT. oPrinter:create()
Alert( "Cannot create device context" )
QUIT
ENDIF

// Create print job
IF .NOT. oPrinter:startDoc( "xHarbour test page" )
Alert( "Cannot create document" )
QUIT
ENDIF

// Text in fixed font
oPrinter:textOut( "Text in default font" )
oPrinter:bold( FW_EXTRABOLD )
oPrinter:textOut( oPrinter:fontName )
oPrinter:bold( FW_NORMAL )
oPrinter:newLine()

aFonts := oPrinter:getFonts()
nFont := AScan( aFonts, ;
{|a| "ARIAL" $ Upper(a[1]) } )

cFont := aFonts[nFont,1]

// Text in proportional font
oPrinter:setFont( cFont )
oPrinter:textOut( "Text in Arial font" )
oPrinter:bold( FW_EXTRABOLD )
oPrinter:textOut( oPrinter:fontName )
oPrinter:bold( FW_NORMAL )
oPrinter:newLine()

// Colored text
oPrinter:setColor( RGB_YELLOW, RGB_BLUE )
oPrinter:textOut( "Yellow on Blue" )
oPrinter:newLine()

// Draw colored line across page
oPrinter:setPen( PS_DASH, 5, RGB_GREEN )
oPrinter:line( oPrinter:posX, ;
oPrinter:posY, ;
oPrinter:rightMargin, ;
oPrinter:posY )

// Send output to printer
oPrinter:endDoc()

// Release GDI device context
oPrinter:destroy()
RETURN


FUNCTION RGB( nRed, nGreen, nBlue )
RETURN ( nRed + ( nGreen * 256 ) + ( nBlue * 65536 ) )

[sygecom]

??

[ederxc]

bom dia !

Essa semana passada, tive um problema parecido com a impressora epson,
estava imprimindo SIMPLES "hello world" para testar como funciona esse win32prn();
Na HP imprimia e na epson "MATRICIAL" não imprimia nada e saltava a pagina...

resolvi dessa forma , antes de passar o texto para o objeto Mandei um newline()

Código: Selecionar todos

oPrinter:newLine()  
 oPrinter:textOut( "Hello World" )

-:]