Sub ShowTable()

 

  ' create format string (widths in Twips)

  Dim f$

  f = "+1440|+^1000|+^1000|+>700;"

 

  ' create header string (repeat across page breaks)

  Dim h$

  h = "Network|Country|Language|Code;"

 

  ' create some dummy data

  ReDim b$(7)

  b(1) = "Cartoon Network|USA|English|CAR;"

  b(2) = "Deutsche Welle|Germany|German, English|DWL;"

  b(3) = "Discovery|USA|English, Spanish|DCY;"

  b(4) = "FOX|USA|English|FOX;"

  b(5) = "TV5|Canada, France|French, Spanish|TV5;"

  b(6) = "MTV|USA|English, Spanish|MTV;"

  b(7) = "RAI Uno|Italy|Italian, English|RAI;"

 

  ' start document

  vp.StartDoc

 

  ' show header and green first row

  vp.AddTable f, h, b(1), vbYellow, vbGreen

 

  ' append row pairs (white, green)

  Dim i%

  For i = 2 To 6 Step 2

    vp.AddTable f, h, b(i), vbYellow, , True

    vp.AddTable f, h, b(i + 1), vbYellow, vbGreen, True

  Next

 

  ' done

  vp.EndDoc

 

End Sub