This function prints the invoice.
object.Print
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISInvoice interface |
Print the invoice after user confirmation.
Dim aPatient
Dim aFilter
Dim aInvoices, aInvoice
Dim i
Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateInvoiceFilter
aFilter.PatientId = aPatient.ID
set aInvoices = aFilter.Load
for i = 0 to aInvoices.Count - 1
set aInvoice = aInvoices.Items(i)
if MsgBox("Would you like to print the invoice " & vbNewLine & aInvoice.Reference & "?",_
vbYesNo, "Printing confirmation") = vbYes then aInvoice.Print
next
In Profile Client v8 on User Interface the invoice can be printed by clicking the Print button in
.