Remainingspace=remainingspace-columnwidthįor i as integer=1 to list.ColumnCount- 1Ĭall pdf.SetFont font,pdf.kfsNone, size, true, pdf.kcp1252įor cx as integer=0 to list.ColumnCount- 1 Sub DrawListbox(pdf as dynapdfmbs, list as listbox, x as integer, y as integer, width as integer)ĭim height as integer = list.ListCount* 21+ 22Ĭall pdf.Rectangle x,y,width- 1, 21, pdf.kfmFillĬall pdf.Rectangle x,y,width- 1,height,pdf.kfmStrokeĭim cw(- 1) as string = split(List.ColumnWidths, ",")ĭim remainingspace as integer = width-List.ColumnCount- 1Ĭolumnwidth=val(s)*remainingspace/starcount MsgBox "Can't write file to "+outfile.AbsolutePath This message will be suppressed on further calls in /kunden//webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244ĭim outfile as FolderItem=GetFolderItem( "table.pdf")Ĭall pdf.CreateNewPDF( nil) // the output file is created laterĬall pdf.SetDocInfo pdf.kdiCreator, "Realbasic test application"Ĭall pdf.SetDocInfo pdf.kdiTitle, "My first table output"ĭrawListbox pdf, Listbox1, 50, 50, pdf.GetPageWidth- 100 Deprecated: The each() function is deprecated.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |