update price level UI

This commit is contained in:
Paul Trowbridge 2022-08-04 16:47:57 -04:00
parent a55b719e94
commit 8d339f6361
3 changed files with 15 additions and 2 deletions

View File

@ -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

View File

@ -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

Binary file not shown.