USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  printer.print (continuação)
andre
DIVINÓPOLIS
MG - BRASIL
ENUNCIADA !
Postada em 13/07/2006 16:39 hs            
Grande parte está resolvida. Mas:
1º=> Minha caixa de diálogo antes da impressão não deixa disponivel a parte de selecionar qual a folha a ser impressa. O que posso fazer, pois tenho que deixar de alguma forma, a alternativa de imprimir somente uma pagina a criterio do usuario?
2º=> o comando left conta os caracteres, tem como eu limitar um campo de impressão atraves de medida?
3º=> minha folha continua não imprimindo até o fim. Vejam o que há de errado:
 
Private Sub Command9_Click()
   
    'mostra a janela para impressora
    CommonDialog1.ShowPrinter
   
    Dim bancodados As Database
    Dim produto As Recordset
    Dim linha As Integer
    linha = 1
    Set bancodados = OpenDatabase("D:Meus DocumentosOutrosVisual BasicTabelasMatriz.mdb")
    Set produto = bancodados.OpenRecordset("Produto", dbOpenTable)
    produto.Index = "DESCR"
    Printer.FontName = "Arial"
    Printer.FontSize = 9.5
    Printer.ScaleMode = 6
    Printer.ScaleHeight = 280
    Printer.ScaleWidth = 240
    Do While Not produto.EOF
    If linha = 1 Then
    Cabeçalho
    Cabeçalho2
    End If
       
    Printer.Print Tab(1.5); Left(produto("COD PROD"), 12); Tab(19); Left(produto("UND"), 2); Tab(24); Left(produto("DESCR"), 26); Tab(70); Left(produto("APLICAC"), 26); Tab(116); Left(produto("PRECO VEND"), 9); Tab(128); Left(produto("FABRICANTE"), 20)
   
    linha = linha + 1
    produto.MoveNext
    If linha >= 60 Then
    Printer.Print
    Printer.Print
    Printer.Print Tab(52); "Página"; Printer.Page
    Printer.NewPage
    linha = 1
    End If
   
    Loop
    Printer.EndDoc
    produto.Close
    bancodados.Close
End Sub
Private Function Cabeçalho()
       
    Printer.Print
    Printer.Print
    Printer.Print Format(Now, "long time"); Tab(48); "Lista de Preços"; Tab(130); Format(Now, "short date")
    Printer.Print
    Printer.Print
End Function
Private Function Cabeçalho2()
   
    Printer.Print Tab(1.5); "Código"; Tab(19); "Un"; Tab(24); "Descrição"; Tab(70); "Aplicação"; Tab(116); "Preço"; Tab(128); "Fabric"
    Printer.Print
End Function
 
O que está errado? Já aumentei o Printer.ScaleWidth, já aumentei o left do fabricante...
OBS: Fiz dois cabeçalhos pois quero que cada um seja impresso com uma configuração diferente. O primeiro quero que fique com font 10, e negrito. O segundo font 10, e sublinhado. Quando tentei fazer isto, as configuraçoes interfiriram na impressao dos registros.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página