update price level UI
This commit is contained in:
parent
a55b719e94
commit
8d339f6361
@ -660,8 +660,14 @@ Sub build_customer_files()
|
||||
|
||||
If pricelevel.tbPATH.text <> "" Then nwb.SaveAs Filename:=filepath & "\" & fname
|
||||
|
||||
If pricelevel.chPDF Then
|
||||
fname = Replace(fname, "xlsx", "pdf")
|
||||
nwb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filepath & "\" & fname, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
|
||||
End If
|
||||
|
||||
If Not pricelevel.chbLEAVEOPEN Then
|
||||
nwb.Close
|
||||
End If
|
||||
|
||||
For Each wb In Workbooks
|
||||
If wb.Name = "HC FullCode List.xlsx" Then
|
||||
@ -676,6 +682,9 @@ Sub build_customer_files()
|
||||
|
||||
If Not (fcwb Is Nothing) Then
|
||||
If pricelevel.tbPATH.text <> "" Then fcwb.SaveAs Filename:=filepath & "\HC FullCode List.xlsx"
|
||||
If Not pricelevel.chbLEAVEOPEN Then
|
||||
fcwb.Close
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
@ -38,6 +38,10 @@ Private Sub cbFolder_Click()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub cbNUMERIC_Click()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbOK_Click()
|
||||
cancel = False
|
||||
Me.Hide
|
||||
|
BIN
pricelevel.frx
BIN
pricelevel.frx
Binary file not shown.
Loading…
Reference in New Issue
Block a user