Jump to content
tiagom91

Facturas

Recommended Posts

tiagom91

Olá,

é possível criar relatórios com base de dados em access e funcionar em outro computador? :dontgetit:

Penso eu q só funciona correctamente era se tivesse uma instância SQL e a correr o SQL Browser.

Alguém me arranja uma solução para poder passar facturas nem que utilize o dataset ou o datagrid?

Obrigado.

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

Dá uma olhadela neste Tutorial


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
tiagom91

Já tinha visto esse tópico mas não consigo colocar a funcionar.  ;)

Public Class Form1
    Private Empresa, Contribuinte, Produto, Telefone, Email, Notas As String
    Private Sub RelatorioUnico()
        Dim printIt As New PrintDocument
        Dim printPreview As New PrintPreviewDialog
        printPreview.Document = printIt

        ' Apanhamos os campos da datagrid e atribuimos às respectivas variáveis
        Empresa = DataGridView1.CurrentRow.Cells(1).Value
        Contribuinte = DataGridView1.CurrentRow.Cells(2).Value
        Produto = DataGridView1.CurrentRow.Cells(3).Value
        Telefone = DataGridView1.CurrentRow.Cells(4).Value
        Email = DataGridView1.CurrentRow.Cells(5).Value
        Notas = DataGridView1.CurrentRow.Cells(6).Value

        AddHandler printIt.PrintPage, AddressOf printIt_PrintPage

        ' Copia o logótipo
        Clipboard.SetImage(My.Resources.google)
        printPreview.ShowDialog()
    End Sub

Este código coloca-se no form load certo e o outro no botão certo?  :bored:

Share this post


Link to post
Share on other sites
Andrepereira9

Metes os 2 'Sub' conforme estão no tutorial. Foa do evento.

Depois quando quiseres criar a factura é só pores 

RelatorioUnico()

No evento .click .load,... onde quiseres


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Andrepereira9

Mostra o código que tens


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.