// get Xojo printer setup
Var p as new PrinterSetup

// now put it into NSPrintInfo to manipulate
Var n as new NSPrintInfoMBS
n.SetupString = p.SetupString

// change destination to file
Var f as FolderItem = SpecialFolder.Desktop.Child("test.pdf")
n.SetSaveDestination(f)

// move back
p.SetupString = n.SetupString

// and print as usual
Var g as Graphics = OpenPrinter(p)
g.DrawString "Hello World", 20, 20

Var p as new PrinterSetup
Var info as new NSPrintInfoMBS(p.SetupString)
MsgBox info.paperName

Var n As New NSPrintInfoMBS

Var d1 As Dictionary = n.Dictionary

// add a custom key
n.objectForKey("test") = 123

Var d2 As Dictionary = n.Dictionary

// and remove it
n.removeObjectForKey "test"

Var d3 As Dictionary = n.Dictionary

// inspect dictionaries in debugger
Break

Var n As New NSPrintInfoMBS

Var d1 As Dictionary = n.Dictionary

// add a custom key
n.objectForKey("test") = 123

Var d2 As Dictionary = n.Dictionary

// and remove it
n.removeObjectForKey "test"

Var d3 As Dictionary = n.Dictionary

// inspect dictionaries in debugger
Break

// print to PDF in Xojo Cocoa app

// change print info to go to
Var s as NSPrintInfoMBS = NSPrintInfoMBS.sharedPrintInfo
Var d as MemoryBlock = s.data // save old
s.SetSaveDestination SpecialFolder.Desktop.Child("test.pdf")

// now print something
Var g as Graphics = OpenPrinter
if g<>Nil then
  g.DrawString "Hello World PDF", 20, 20
end if


s.data = d // restore original settings

// now print something to regular printer
g = OpenPrinter
if g<>Nil then
  g.DrawString "Hello World Printer", 20, 20
end if