|
<< Click to Display Table of Contents >> Object LWCRM.Report |
  
|
|
<< Click to Display Table of Contents >> Object LWCRM.Report |
|
Syntax
Call LWCRM.Report.PrintReport( blnPreview, strTemplateId, [strFilter], [strPrinter], [strFilename])
Parameters
blnPreview
Met deze parameter wordt aangegeven of het rapport moet worden afgedrukt op de printer of als voorbeeld moet worden getoond.
strTemplateId
Deze parameter wordt gebruikt om het gewenste Template op te zoeken in de tabel Templates.
strFilter
In praktisch alle gevallen zal een filter opgegeven moeten worden, welke ervoor zorgt dat slechts een beperkt deel van de selectie wordt gebruikt om af te drukken.
strPrinter
Is bij het sjabloon geen printer opgegeven of moet het rapport op een afwijkende printer worden afgedrukt, geef dan de exacte printernaam door.
strFilename
Moet van een rapport een PDF-document worden gegenereerd, geef dan de gewenste bestandsnaam door en laat de printernaam leeg.
Voorbeeld
Call LWCRM.Report.PrintReport(False, "0001A", Chr(123) & "products.stockitem " & Chr(125) & " <> 0" )
Het is belangrijk dat geen accolade-tekens '{' en '}' worden gebruikt in de teksten, omdat Logicworks CRM dit anders interpreteert als een invoerveld-referentie.
Met deze methode krijgt de gebruiker de mogelijkheid een printer te kiezen en aan te geven of eerst een afdrukvoorbeeld moet worden getoond. Het resultaat kan vervolgens worden gebruikt bij de aanroep van hiervoor beschreven methode LWCRM.Report.PrintReport.
Als een gebruiker in de keuzelijst op [Annuleren] drukt, dan retourneert de methode een lege string. Kiest de gebruiker voor [OK], dan wordt een string geretourneerd waarvan de printer-informatie is gescheiden met pipe-tekens (|). De laatste (5e lijstitem) bevat de indicatie (0=nee, 1=ja) of een gebruiker een afdrukvoorbeeld wil zien.
Syntax
Call LWCRM.Report.SelectPrinterAndOutput
Voorbeeld
...
outputSelection = LWCRM.Report.SelectPrinterAndOutput
If Len(Trim(outputSelection)) > 0 Then
col = Split(outputSelection, "|")
printPreview = (col(4) = "1")
If LWCRM.Report.PrintReport( printPreview, reportTemplate, reportFilter, outputSelection, "", Form.Tag) Then
...
End If
End If
...