VOLANTES LOTOFACIL

COMIKETO 13/10/2011 10:03:03
#386556
ola amigos:

estou escrevendo um sistema para gerenciamento de cartoes da lotofacil...

estou com dificuldades para imprimir os volantes, peguei este codigo aqui mesmo no site:

  Dim POSICAO_COLUNA(24) As Double
Dim POSICAO_LINHA(24) As Double

Function Imprime_Lotofacil(ByVal Str_Jogo As String)
Dim X As Integer
Dim NUMERO As Integer

Printer.NewPage
Printer.FontName = [Ô]Webdings[Ô]
Printer.ScaleMode = vbCentimeters [ô]Vc pode usar outra escala se quizer.

For X = 1 To 15 Step 3
    NUMERO = Val(Mid(Str_Jogo, X, 2))
    
    [ô]Estas variáveis tem a posição da coluna e da linha do quadradinho com o número.
    [ô]Fiz aqui ligeirinho, a associação das variáveis com o currentx ou com currenty podem alterar.
    Printer.CurrentX = POSICAO_COLUNA(NUMERO - 1) [ô]Posição em centimetros. Ex.: 2,3 cm.
    Printer.CurrentY = POSICAO_LINHA(NUMERO - 1)
    
    Printer.Print [Ô]gg[Ô]
Next X

Printer.EndDoc
End Function

Private Sub Command1_Click()
Imprime_Lotofacil [Ô]01,02,03,04,05,06,07,08,09,10,11,12,13,14,15[Ô]
End Sub


o problema é que ele imprime um unico quadradinho no canto superior esquerdo da pagina, como descrito no codigo não era pra imprimir 15 quadradinhos?

estou tentando resolver isso pra depois acertar as posições

se alguem puder dar uma luz obrigado...
RODRIGOFERRO 13/10/2011 10:05:19
#386557
Poque nao trabalha com Array ?
COMIKETO 13/10/2011 10:16:54
#386558
Citação:

:
Poque nao trabalha com Array ?




Porque naum sei

pode me dar uma ajudinha?
COMIKETO 13/10/2011 13:23:31
#386597
amigo Marcelo-treze...

deu certo em partes....

mas segue uma duvida se puder continuar me auxiliando ficarei grato:

  Dim POSICAO_COLUNA(24) As Double
Dim POSICAO_LINHA(24) As Double

Function Imprime_Lotofacil(ByVal Str_Jogo As String)
Dim X As Integer
Dim NUMERO As Integer

Printer.NewPage
Printer.FontName = [Ô]Webdings[Ô]
Printer.ScaleMode = vbCentimeters [ô]Vc pode usar outra escala se quizer.

[ô] Posição do quadradinho dezena 01
POSICAO_COLUNA(0) = 0.72
POSICAO_LINHA(0) = 2.23

[ô] Posição do quadradinho da dezena 02
POSICAO_COLUNA(1) = 2.01
POSICAO_LINHA(1) = 2.23

[ô] Posição do quadradinho da dezena 03
POSICAO_COLUNA(2) = 3.25
POSICAO_LINHA(2) = 2.23

[ô] Posição do quadradinho da dezena 04
POSICAO_COLUNA(3) = 4.51
POSICAO_LINHA(3) = 2.23

POSICAO_COLUNA(4) = 5.8
POSICAO_LINHA(4) = 2.23

[ô]Altrei as medidas conforme minha necessidade e até aqui imprimiu maravilhosamente bem, porem ja a seguir ele deveria imprimir na proxima sequencia de quadaradinho (dezena 06)
[ô] mas simplesmente ele ignora esse codigo abaixo e naum imprime nada no volante.

POSICAO_COLUNA(5) = 0.72
POSICAO_LINHA(5) = 2.75

[ô] e assim por diante
[ô] ps: os valores acima são ficticios, apenas para ilustrar, vc deve fazer os testes.

For X = 1 To 15 Step 3
    NUMERO = Val(Mid(Str_Jogo, X, 2))
    
    [ô]Estas variáveis tem a posição da coluna e da linha do quadradinho com o número.
    [ô]Fiz aqui ligeirinho, a associação das variáveis com o currentx ou com currenty podem alterar.
    Printer.CurrentX = POSICAO_COLUNA(NUMERO - 1) [ô]Posição em centimetros. Ex.: 2,3 cm.
    Printer.CurrentY = POSICAO_LINHA(NUMERO - 1)
    
    Printer.Print [Ô]gg[Ô]
Next X

Printer.EndDoc
End Function



se puder me ajudar agradeço...

obrigado
MARCELO.TREZE 13/10/2011 16:53:23
#386620 Resposta escolhida
colega só um segundo to resolvendo o problema do código e já posto aqui
COMIKETO 13/10/2011 17:10:40
#386621
ok amigo muito obrigado, agora deu certo...
Tópico encerrado , respostas não são mais permitidas
Voltar