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
Postada em 08/01/2005 15:52 hs            
Pessoal desculpa insistir nesse assunto mas alguem sabe como imprimir em active report ou print um relatorio, somente o registro selecionado no form com foto que esta em uma pasta, galera obrigado

Jesus Cristo é O Senhor!!!
     
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 10/01/2005 13:21 hs            
alguem

Jesus Cristo é O Senhor!!!
     
Gelson Porto
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 10/01/2005 14:15 hs            
Korn, boa tarde..
 
       Minha resposta não terá utilidade para voce, mas se via crystal já é muito complicado, fica a imaginar com seria nestas ferramentas.
       Já pesquisou no site da microsoft ??
 
 
 
     
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 10/01/2005 16:07 hs            
este codigo so imprimi todos os registro que contenham um codigo 1 por exemplo , eu gostaria que fizesse uma consulta no selct dele para ele imprimi somente o registro que esta selecionado no form , valeu galera , pra quem nao tem essre codigo tamem , ta ai
Me.MousePointer = 11
'este codigo abaixo imprimi em active report
FecharRst
Dim sPath As String
sPath = App.Path & "Bdimobiliaria.MDB"
sSql = "select * from Tbl_Apartamentos where Codigo =" & Me.txtcod
    Set rst.ActiveConnection = cnBd
    rst.CursorLocation = adUseClient
    rst.Open sSql, , adOpenStatic, adLockBatchOptimistic
    rst.ActiveConnection = Nothing
    Dim rpt As New rptRelApart
    Set rpt = New rptRelApart
    rpt.DataControl1.Recordset = rst
    rpt.Show 1

Jesus Cristo é O Senhor!!!
     
MARCONE
Pontos: 2843
BRASÍLIA
DF - BRASIL
Postada em 11/01/2005 10:05 hs            
No Active Reports isso é muito simples e rápido:
 
Você precisará criar, juntamente com os demais campos, um campo tipo texto para gravar o caminho da figura - exemplo (C:PastaTal_\_FiguraTal.BMP). Coloque um Image no designe do seu relatório (Image1) e faça o seguinte:
 
'****General
Public sPathFigura as String
 
'***Botão imprimir que está no form (Form1):
Me.MousePointer = 11
Dim sPath As String
sPath = App.Path & "Bdimobiliaria.MDB"
sSql = "select * from Tbl_Apartamentos where Codigo =" & Me.txtcod
sPathFigura = rst!Figura 'A variável sPathFigura guarda o caminho da figura do seu bd
    Set rst.ActiveConnection = cnBd
    rst.CursorLocation = adUseClient
    rst.Open sSql, , adOpenStatic, adLockBatchOptimistic
    rst.ActiveConnection = Nothing
    Dim rpt As New rptRelApart
    Set rpt = New rptRelApart
    rpt.DataControl1.Recordset = rst
    rpt.Show 1
end sub
 
'***No designe do relatório rptRelApart basta passar o parâmetro:
Private Sub ActiveReport_PageStart()
Me.Image1.Picture = LoadPicture(Form1.sPathFigura)
Exit Sub
End Sub
 
Prontinho, sua figura estará estampada no relatório assim que for visualizado..Emoções

MarconeEmoções

 

TÓPICO EDITADO
   
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 11/01/2005 14:11 hs            
Ae marcone blz , o negocio é o seguinte oq eu num entendi é que eu tenho q colocar outra txt no meu form? ela faz oq ? a image ja esta , com o controle de fotos, mas esta aparecendo um erro nessa linha sPathFigura = rst!Figura 'A variável sPathFigura guarda o caminho da figura do seu bd " Item cannot found in the collection corresponding to the request name or ordinal"
So mais uma pergunta pra eu fazer um relatorio que pegue somente o registro que esta paginado no form seria esse codigo so q sem o path? pq seria a solucao pro meu problema de multiline que eu tenho no print , eu fazer no active report vei, valeu

Jesus Cristo é O Senhor!!!
TÓPICO EDITADO
   
Página(s): 1/4      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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