This is legal and possible, but please check with us to be sure the license key is valid and upgradable.
Sometimes it happens that someone tries to sell his license. We sell them in on our website, through Share-It, in the Xojo web store and the K&K Verlag. If you need a license for MBS Plugin, please purchase them through an official channel. With DynaPDF 3.0.34.98 and newer, you can use standard fonts also with unicode encoding. If you want to add your own folder with font files, please use AddFontSearchPath ( MBS Xojo Plugin) or DynaPDF.AddFontSearchPath ( MBS FileMaker Plugin) function.
Especially with Xojo applications on linux, where DynaPDF doesn't know where system font files are and you have to use them yourself. This is great, because those fonts are always available in DynaPDF independent of what the user has installed.
IgnoreWarnings = true Return 0 // ignore Case d.The PDF format defines 14 standard fonts which you can use without embedding those fonts: Return 0 // ignore Case d.AlternateActionButton and display dialog: Dim d as New MessageDialog //declare the MessageDialog object Dim b as MessageDialogButton //for handling the resultĭ.icon=MessageDialog.GraphicCaution //display warning iconĭ.CancelButton.Visible= True //show the Cancel button // a warning or an error? if BitAnd(ErrorType, me.kE_WARNING) = me.kE_WARNING then // if user decided to ignore, we'll ignore if IgnoreWarnings then Return 0ĭ.Message= "A warning occurred while processing your PDF code." // we add a third button to display all warningsĭ.AlternateActionButton.Caption = "Ignore warnings"ĭ.AlternateActionButton.Visible = true elseĭ.Message= "An error occurred while processing your PDF code." end ifĭ.Explanation = str(ErrorCode)+ ": "+ErrorMessageī=d.ShowModal //display the dialog Select Case b //determine which button was pressed. System.DebugLog str(ErrorCode)+ ": "+ErrorMessage Tax = sum * 0.19 call pdf.WriteFTextEx(x, y, 483.0, - 1.0, pdf.ktaRight, Format(tax, "0.00")+ " €")Ĭall pdf.SetFont( "Arial", pdf.kfsBold, 12.0, true, pdf.kcpUnicode)Ĭall pdf.WriteText(x + 5.0, y - 13.0, "Gesamtbetrag")Ĭall pdf.WriteFTextEx(x, y - 1.0, 483.0, - 1.0, pdf.ktaRight, Format(tax+sum, "0.00"))ĮventHandler Function Error(ErrorCode as integer, ErrorMessage as string, ErrorType as integer) As integer // output all messages on the console: Gekaufte Artikel ausgeben -> fünf Spalten dim num as integer = 1ĭim a as Article = Articles(r.InRange( 0, UBound(Articles))) Zwei Linen für den Tabellenkopf ausgeben call pdf.SetLineWidth( 0.25) USt-ID call pdf.WriteText(x, y - 50.0, Record.TaxID) Auftragsnummer call pdf.WriteText(x, y - 39.0, Record.OrderNr) Kundennummer call pdf.WriteText(x, y - 27.5, str(Record.CustomerNr)) Datum call pdf.WriteText(x, y, d.ShortDate) Ort call pdf.WriteText(pdf.GetLastTextPosX + pdf.GetTextWidth( " "), y, Record.City) Y = pdf.GetLastTextPosY - 10.0 // PLZ call pdf.WriteText(x, y, Record.Zip) Straße call pdf.WriteFTextEx(x, y, 180.0, - 1.0, pdf.ktaLeft, Record.Street) Y = pdf.GetLastTextPosY - 10.0 call pdf.WriteText(x, y, Record.ContactPerson) Firmenname, könnte mehrzeilig sein call pdf.WriteFTextEx(x, y, 200.0, - 1.0, pdf.ktaLeft, Record.Company) Sub FillPage(pdf as DynaPDFMBS, record as Customer)ĭim sum as Double = 0.0 dim tax as Double = 0.0 dim x as double = 56.0 dim y as double = 664.0 call pdf.SetFont( "Arial", pdf.kfsRegular, 10.0, true, pdf.kcpUnicode) Next // Seitennummern einfügen dim pageCount as integer = pdf.GetPageCountĬall pdf.SetFont( "Arial", pdf.kfsRegular, 8.0, true, pdf.kcpUnicode)Ĭall pdf.WriteText( 466.0, 681.5, str(i)+ " von "+str(pageCount)) Rechnung mit Daten füllen dim idx as integer = r.InRange( 0,UBound(Customers)) Statischer Hintergrund call pdf.PlaceTemplateEx(tmpl, 0.0, 0.0, 0.0, 0.0) Const NUM_PAGES = 1000 dim r as new randomĭim ofile as FolderItem = ( "DynaPDF Database Invoice Example.pdf")ĭim ifile as FolderItem = FindFile( "invoice template.pdf")Ĭall pdf.SetImportFlags( Bitwiseor(pdf.kifImportAll, pdf.kifImportAsPage))Ĭall pdf.OpenImportFile(ifile, pdf.kptOpen, "")