diff --git a/PriceLists.bas b/PriceLists.bas index 91903a8..2700017 100644 --- a/PriceLists.bas +++ b/PriceLists.bas @@ -542,7 +542,7 @@ Sub build_customer_files() Set fcws = fcwb.Sheets(1) fcws.Activate 'fcws.Cells.NumberFormat = "@" 'format all cells to text so pasted text values are not cast to numeric - Call x.SHTp_Dump(fc, fcws.Name, 1, 1, False, True, 6, 7, 8, 9, 10, 11, 12, 13) + Call x.SHTp_Dump(fc, fcws.Name, 1, 1, False, True, 6, 7, 8, 9, 10, 11, 12, 13, 14) Rows("1:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove '--------------------format full code------------------------------------------------------------------------ @@ -558,12 +558,16 @@ Sub build_customer_files() fcws.Columns("A").ColumnWidth = 9.43 fcws.Columns("B").ColumnWidth = 20 fcws.Columns("C:D").ColumnWidth = 35 - fcws.Columns("E").ColumnWidth = 13 - fcws.Columns("F").ColumnWidth = 3.7 - fcws.Columns("H").ColumnWidth = 7 + fcws.Columns("E").ColumnWidth = 21.5 + fcws.Columns("F").ColumnWidth = 3.71 + fcws.Columns("G").ColumnWidth = 9.43 + fcws.Columns("G").NumberFormat = "_(* #,##0.000_);_(* (#,##0.000);_(* ""-""???_);_(@_)" + fcws.Columns("H").ColumnWidth = 7.14 fcws.Columns("I:P").ColumnWidth = 14 - fcws.Columns("I:N").Style = "Comma" - fcws.Columns("G").Style = "Comma" + fcws.Columns("I:P").NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)" + fcws.Columns("O").ColumnWidth = 10.57 + fcws.Columns("O").NumberFormat = "_(* #,##0.000_);_(* (#,##0.000);_(* ""-""???_);_(@_)" + Rows("3:3").NumberFormat = "General" fcws.Activate ActiveWindow.DisplayGridlines = False Rows("4:4").Select @@ -702,6 +706,8 @@ Sub build_customer_files() End If Next i + + '--------------------print header data-------------------------------------------------------------------------- pl = x.TBLp_Transpose(pl) Call x.TBLp_FilterSingle(pl, 20, "", False) Call x.TBLp_Group(pl, True, x.ARRAYp_MakeInteger(20))