I would save a PDF file in page size DIN A4, but the page is always US Letter.
In BKS => PritingModule we have:
kPageWidthPt
Default value: 595.140 (for DIN A4)
English value: 612
kPageHeightPt
Default value: 841.698 (for DIN A4)
English value: 792
btnSavePDF:
Sub Action() Handles Action
// Get a folderitem to store our PDF
dim f as FolderItem = GetSaveFolderItem("", app.ApplicationNameMBS + “.pdf”)
// Check if user cancelled
if f = nil then return
// Create an Document instance
dim oDoc as BKS_Shorts.Document
oDoc = ctlViewer.Document
if oDoc = nil then return
// Create our view
dim oView as new BKS_Shorts.View
oView.ViewLeft = 0
oView.ViewTop = 0
oView.Scale = 1.0
// Create DynaPDF Renderer
dim o as new BKS_ShortsDynaPDF.Renderer(f)
// Now Render
oDoc.Render(o, oView)
// Now launch it so the user can see it in a native viewer.
f.Launch
End Sub