Das folgende Beispiel zeigt, wie Sie TFORMer Runtime in VB-Script (Microsoft Visual Basic Scripting) einsetzen. Dieses Beispiel steht auf Ihrem Rechner unmittelbar nach Installation von TFORMer zur Verfügung:
Erzeugen der benötigten Instanzen für TFORMer Runtime (tformer) und für einen Druckjob (printJob).
Set tformer = CreateObject("TFormer5Lib.TFormer")
Set printJob = tformer.CreateJob ' Create an output job
Einstellen des gewünschten Formularlayouts über Repository (..\..\Demo Repository\Demos.tfr), Projekt (TFORMer_Runtime_Examples) und Formularname (BarcodeLables):
printJob.RepositoryName = "..\..\Demo Repository\Demos.tfr"
printJob.ProjectName = "TFORMer_Runtime_Examples"
printJob.FormName = "BarcodeLabels"
Die Datenfelder im Formular werden über eine Datenquelle (NewDataSourceRecordSet) mit Werten belegt. Das erfolgt hier direkt aus dem Programmcode (AddNewRecord und SetDataField). Sie können Datenfeldwerte aber auch von externen Datenbanken oder Dateien importieren:
Set dataSource = printJob.NewDataSourceRecordSet
dataSource.ClearRecords
dataSource.AddNewRecord
dataSource.SetDataField "ArticleName", "Mac Adaptor"
dataSource.SetDataField "ArticleNo", "12001234"
dataSource.SetDataField "ArticlePrice", "39,00"
Druck oder Export des Formulars. Wählen Sie dazu noch das Ausgabegerät oder das Exportformat (hier die PDF-Datei output.pdf):
printJob.PrinterName = "PDF:" & objEnv("TMP") & "\output.pdf"
printJob.PrintForm