LuisAlmeida

boas, Vê se com as alterações abaixo j'a funciona: Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programação\db_ado.mdb" cn.Open Set rs = New ADODB.Recordset rs.Open "ADO", cn, adOpenDynamic, adLockOptimistic rs.movefirst while not rs.eof Me.Text_num.Value = rs.Fields(0) Me.Text_nome.Value = rs.Fields(1) Me.Text_trabalho.Value = rs.Fields(2) rs.MoveNext WEND

boas, pelo que eu me apercebi queres saber como imprimir um formul'ario duas vezes. talvez esse não seja o m'etodo adequado. na minha opinião deves criar um relat'orio e depois podes mandar imprimir o relat'orio as vezes que forem necess'arias. 'e claro que se fizeres o relatório em A4 podes dividi-lo ao meio e imprimir os mesmos dados na parte superior e inferior

Boas, pois, lamento mas parece-me que isso não é possivel. podes no entanto, para dar uma aparencia mais profissional à aplicação, criar uma barra de menus personalizada para o teu programa, onde podes ter opção de mostrar esse formul'ario, saír da applicacão, etc....

boas, já passaram alguns anos desde a ultima vez que utilizei um ~leitor de codigos de barras num aplicação. na altura era feita em clipper. do que eu me lembro, era possivel configurar que código ascii era enviado após a leitura do CB. naquela altura normalmente configurava-se para a tecla de ENTER pois isso permitia colocar o cursor no próximo campo. Actualmente não sei como funciona a tecnologia mas talvez possa começar por aí

Boas, Há já algum tempo que ando às voltas com a posssibilidade de digitalizar uma imagem directamente de um scaner mas se que apareça a janela de diálogo das definições da digitalização. o código que eu tenho é: Dim commondialog1 As Object Dim img As ImageFile Set commondialog1 = CreateObject("wia.commondialog") Set img = commondialog1.ShowAcquireImage img.SaveFile ("c:\test.jpg") Será que isso é possivel de fazer em VBA? Se assim for gostaria da vossa ajuda