Letter Source

Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/macsw.de/webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244
Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete

// Event implementations
Sub Open()
dim pdf as new MyDynaPDF
dim outfile as FolderItem


call pdf.CreateNewPDF outfile

call pdf.OpenImportFile GetFolderItem("letter.pdf"), pdf.kptOpen, ""


call pdf.SetPageCoords pdf.kpcTopDown

call pdf.append

call pdf.PlaceTemplate pdf.template, 0, 0, pdf.GetPageWidth, pdf.GetPageHeight

call pdf.SetFont "Times", pdf.kfsNone, 14, true, pdf.kcp1252
call pdf.SetTextRect 130,240,pdf.GetPageWidth-180,pdf.GetPageHeight-350
call pdf.WriteFText pdf.ktaJustify, window1.EditField1.Text

call pdf.EndPage
call pdf.CloseFile

outfile.Launch true


End Sub
End Class

Class Window1
Inherits Window
// Controls
End ControlInstance
End Class

Class MyDynaPDF
Inherits DynaPDFMBS
// Properties
Dim template As Integer

// Event implementations
Function Error(ErrorCode as integer, ErrorMessage as string, ErrorType as integer) As integer
MsgBox ErrorMessage

End Function
Function PageBreak(LastPosX as double, LastPosY as double, PageBreak as boolean) As integer
call EndPage
call append
call SetPageCoords kpcTopDown
call PlaceTemplate template, 0,0, GetPageWidth, GetPageHeight

Return 0
End Function
End Class

Watch other Xojo videos:

ThumbnailMBS Xojo Plugin, June 2021 News


27:58 minutes
ThumbnailMBS Xojo Plugins 21.1


23:12 minutes
ThumbnailInstalling a Xojo Web App Server


28:19 minutes
ThumbnailMBS Plugin Installation Win


22:03 minutes
ThumbnailMBS Plugin Installation Mac


25:17 minutes
ThumbnailXDC 2020 MBS Plugins Presentation


38:59 minutes

MBS FileMaker Plugins

Start Chat