Impostare stampanti diverse

Poniamo che vuoi stampare sulla stampanteA e sulla StampanteB a seconda del metodo e che non vuoi richiamare sempre le finestre di dialogo per stampare.
Le impostazioni saranno un campo binario ad esempio su db o altro.
Nella procedura leggi (da dove salvi) la stringa delle impostazioni (se non la trovi restituisci una stringa vuota)
Imposta anche una funzionalit per resettare (cancellare) le impostazioni di stampa in modo da poterle ricreare (stampante diversa etc)

dim ps as new PrinterSetup
dim ok as boolean
Dim g As Graphics

if impostazioni="" then
  //In setup puoi annullare l'operazione  
  ok=ps.PageSetupDialog
else
  ok=true
end if
if ok then
  if impostazioni="" then
    g = OpenPrinterDialog(ps)
    if g<>nil then 
      //Hai creato le impostazioni da dialogo le puoi salvare 
      saveImpostazioni(ps.SetupString)
    end if
  else
    ps.setupString=impostazioni
    g=openPrinter(ps)
end if

if g<>nil then
//Stampa
end if