IMPRIMIR VOLANTE LOTOFACIL

USUARIO.EXCLUIDOS 11/09/2007 16:51:32
#235096
Ola,

Preciso desenvolver uma aplicacao para imprimir volantes da lotofacil. O cliente ira cadastrar varias combinacoes dos 15 numeros escolhidos dentre os 25 possiveis e depois imprimir os volantes. Estou pretendendo montar em um picturebox as posicoes dos quadradinhos pretos que ficarao em cima do respectivo numero escolhido quando imprimir o volante.

No volante os numeros sao posicionados da seguinte maneira:

21 16 11 06 01
22 17 12 07 02
23 18 13 08 03
24 19 14 09 04
25 20 15 10 05

obs.: Em cada volante vc pode marcar 2 jogos.

Lembrando que a impressao eh realizada da esquerda para direita, entao o primeiro quadradinho preto a ser impresso, caso o numero foi escolhido, sera o 21, depois 16, depois 11 e assim por diante.

O problema agora é: Como fazer um laco para checar os numeros escolhidos e posicionar os quadradinhos pretos em cima do seu respectivo valor no volante.

obs.: Os quadradinhos pretos estou fazendo com a fonte Webdings e duas letras "g" ("gg").


Obrigado desde jah pela atencao e conto mais uma vez com a ajuda do forum.
JB207 11/09/2007 17:24:19
#235101
Cara...eu tenho um que imprimi o cartão da LotoMania.
Vê se te ajuda.

Private Sub Imprimir_Original()
    
    FrmImprimir.MousePointer = vbHourglass
    
    Printer.Orientation = vbPRORLandscape

    Dim Rolagem     As Integer
        
    For Rolagem = 0 To FrmLotoMania.lstCombinacoes.ListCount
        Linhas = 0
        Linha = FrmLotoMania.lstCombinacoes.List(Rolagem)
        For Contador = 1 To Len(Linha) Step 2
            Pos01 = Mid(Linha, Contador, 1)
            Pos02 = Mid(Linha, Contador + 1, 1)
            If Pos01 = 0 Then
                Linhas = 1
            Else
                Linhas = Pos01 + 1
            End If
            If Pos02 = 0 Then
                Linhas = Linhas - 1
                Colunas = 10
            Else
                Colunas = Pos02
            End If
            If Pos01 = 0 And Pos02 = 0 Then
                Linhas = 10
                Colunas = 10
            End If
            Linhas = Linhas + 9
            PosX1 = Colunas * 365
            PosY1 = Linhas * 445
            PosX2 = 200 + PosX1
            PosY2 = 300 + PosY1
            Printer.Line (PosX1, PosY1)-(PosX2, PosY2), , BF
        Next
    Next

    Printer.EndDoc
    Printer.Orientation = vbPRORPortrait
    
    FrmImprimir.MousePointer = vbDefault

End Sub
USUARIO.EXCLUIDOS 11/09/2007 17:26:43
#235102


impressora térmica?
JB207 11/09/2007 17:30:14
#235104
Sinkertec, pra quem a pergunta?
Se for pra mim eu já respondo, rsrsrsrs
Era pra impressora jato de tinta.
ADRIANO 11/09/2007 18:11:07
#235118
Tenta algo assim:

'As posições vc vai ter que achar com uma régua.


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 Cmd_Imprimir_Click()
'Chamar assim:
Imprime_Lotofacil "01,02,03,04,05,06,07,08,09,10,11,12,13,14,15"
End Sub


Espero ter ajudado.

Adriano Daniel Müller
USUARIO.EXCLUIDOS 11/09/2007 19:06:08
#235121
Vlw pela forca galera... vou testar as solucoes e ver oq dah...
Tópico encerrado , respostas não são mais permitidas
Voltar