UDskrifts styring

Du udskriver data helt manuelt og simpelt ved at angive font (type, størrelse, bold, color osv.), samt koordinater på papiret hvor din tekst skal udksrives, fx.  hvis du bruger en CommonDialog til at lade brugeren vælge printer mv:

'Sætter diverse indstillinger for print-dailogboxen
  CommonDialog1.PrinterDefault = False
  CommonDialog1.CancelError = True
  CommonDialog1.DialogTitle = "Udskriv tekst"
  CommonDialog1.FontName = "MS Sans Serif"
  Printer.ScaleMode = 6 'millimeter
  CommonDialog1.Flags = cdlPDHidePrintToFile Or cdlPDNoSelection
 
'Viser Printdialogboxen
  CommonDialog1.ShowPrinter
     
'Udskriver
  For i = 1 To CommonDialog1.Copies
    Printer.CurrentX = 120
    Printer.CurrentY = 50
    Printer.Print "Udskriftsdato: " & Date
    Printer.CurrentX = 40
    Printer.CurrentY = 100
    Printer.Print "Lidt tekst, 40 mm fra sidemargin, 100 mm under topmargin"   
  Next i
  MsgBox "Udskrift slut"

NB: Der er masser af andre properties du lan sætte, fx.
  Printer.DrawWidth
  Printer.FontSize
  Printer.FontBold
dem vil VB selv foreslå dig når du skriver Printer efterfulgt af et . Se evt. mere på msdn.microsoft.com, fx: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnexpvb/html/introducingprinterobject.asp

smukt

Takker også her :)

Jamse selv tak, allesammen :o)