EntwicklerForum.org

  dim g as Graphics
  dim page as PrinterSetup
  dim h,w,x,z,mw,mh as Integer
  page = new PrinterSetup
  g = OpenPrinterDialog(page)
  if g = Nil then
    return
  end if
  g.TextFont = "Arial"
  g.TextSize = 12
  w = g.Width/lstDruck.columnCount
  h = g.textHeight
  for x = 0 to lstTest.ListCount-1
    for z = 0 to lstTest.columnCount-1
      g.DrawString lstTest.cell(x,z), (z*w), (x*h)+h
    next
  next