select 
'Print object_name('+convert(varchar(10),id) 
+');'
+'select  left(a.name,30) Name,left(b.name,15)'+
'Type,a.length,a.prec,a.scale,allownulls from syscolumns a join systypes b on '+
'a.xusertype=b.xusertype where id = '+
 convert(varchar(10),id) 
+ ' order by name ' 
from dbo.sysobjects where  OBJECTPROPERTY(id, N'IsUserTable')= 1