Faktura

Det nemmeste er at oprette en rapport i Access der håndterer data og formatering af samme. Denne kaldes så fra VB.

Prøv at paste denne kode ind i et VB projekt, den udskriver en rapport på din default-printer:

Function OLEPrintReport(strDBName As String, _
                        strRptName As String, _
                        Optional ByVal strWhere As Variant) As Boolean

    On Error GoTo OLEOpenReport_Err

    ' Create Automation object.
    Dim objAccess As Object
    Set objAccess = CreateObject("Access.Application")

    ' indicates exclusive mode if set to True...
    objAccess.OpenCurrentDatabase strDBName, False

    If IsMissing(strWhere) Then strWhere = ""
    objAccess.DoCmd.OpenReport strRptName, 0, "", strWhere

    ' Close Microsoft Access session instance...
    objAccess.Quit 2

    Set objAccess = Nothing
    OLEOpenReport = True
OLEOpenReport_End:
    Exit Function

OLEOpenReport_Err:
    MsgBox Error$(), vbInformation, "Automation"
    Resume OLEOpenReport_End
End Function




Du kalder med:

OLEPrintReport "c:\DatabaseNavn.mdb", "RapportNavn"

Hmmm - hvad nu hvis man gerne vil udskrive alt om een bestemt kunde ? Kan man 'overføre' et kundenavn og så genere en rapport og skrive resultatet ud ??

Så skriver du fx. :

OLEPrintReport "c:\DatabaseNavn.mdb", "RapportNavn", "KundeNummer=1234"

Ok jeg prøver det lige i morgen jeg tror det er det her jeg har ledt efter

Prøv evt. at kigge på dette fakturasystem : http://www.speac.dk/fakturasystem

>> TVJ

Hvad skete der?