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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  imprimir
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/06/2007 13:07 hs            
eo que quer dizer Tramado Lol ?

Jesus Cristo é O Senhor!!!
   
joao
não registrado
ENUNCIADA !
Postada em 19/06/2007 13:07 hs   
tenho outro problema o meu form aparece maximixado e a folha imprimida nao apanha o form todo como devo faser algem sabe esplicar?
[ ]
   
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/06/2007 13:10 hs            
sobre o maximizado, clica no form e vai na propriedade dele WINDOWSTATE , acho que é a ultima , la vai ter maximizado , minimizado , normal, o seu deve ta normal, sobre a impressao, só vendo o codigo, ms eu achei isso , veja se serve
 
Private Sub cmdimprimir_Click()
On Error Resume Next
Dim Largura As Integer
Dim i As Byte
Dim Y As Double
With Printer
     .ScaleMode = vbCentimeters
     .PaperSize = 1 'papel carta
         
     .FontName = "courier new"
     .FontSize = 9
     .FontItalic = False
     .FontBold = False
     .CurrentX = 1
     .CurrentY = 1
     Printer.Print "             xxxxxxxxxxxxxxxxxxxx"
     .CurrentX = 1
     .CurrentY = 1.35
     Printer.Print "             xxxxxxxxxxxxxxxxxx "
     
     .FontName = "courier new"
     .FontSize = 9
     .FontItalic = False
     .FontBold = True
     .CurrentX = 1
     .CurrentY = 2
     Printer.Print "                 Ficha do Aluno"
     
     .FontName = "courier new"
     .FontSize = 9
     .FontItalic = False
     .FontBold = False
     .CurrentX = 1
     .CurrentY = 2
     Printer.Print Format(Time, "hh:mm:ss")
     .CurrentX = 1
     .CurrentY = 2.25
     Printer.Print Format(Date, "dd.mm.yyyy")
     
     .CurrentX = 16.5
     .CurrentY = 2
     Printer.PaintPicture Pctfoto, 16.5, 2
     
     .CurrentX = 1
     .CurrentY = 3
     Printer.Print "NSU:  " & lblcodigo.Caption
     .CurrentX = 3
     .CurrentY = 3
     Printer.Print "R.A.: " & mskra.Text
     .CurrentX = 7
     .CurrentY = 3
     Printer.Print "Status: " & lbltipo.Caption
     .CurrentX = 9
     .CurrentY = 3
     Printer.Print "Nasc.: " & Msknascimento.Text
     .CurrentX = 12.5
     .CurrentY = 3
     Printer.Print "Sexo: " & Cmbsexo.Text
     
     .CurrentX = 1
     .CurrentY = 3.4
     Printer.Print "Nome:  " & Txtnome.Text
[c]   

Jesus Cristo é O Senhor!!!
TÓPICO EDITADO
 
joao
não registrado
ENUNCIADA !
Postada em 19/06/2007 13:13 hs   
olhem eu mando imprimir o meu form e ele nao se apropria a folha de impresao algem m sabe esplicar o que devo faser?
   
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/06/2007 13:13 hs            
da uma olhada no topico editado

Jesus Cristo é O Senhor!!!
   
joao
não registrado
ENUNCIADA !
Postada em 19/06/2007 13:15 hs   
tramado ker diser que nao me vou cansegir faser algo e que irei ficar com serios problemas por causa disso..... lol
   
Página(s): 2/6     « ANTERIOR    PRÓXIMA »


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