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