Sub SaveSheetsAsPDF_PrintArea()
    Dim ws As Worksheet
    Dim pdfFolder As String
    Dim fileName As String
    Dim baseName As String
    Dim sheetCount As Integer
    Dim sheetIndex As Integer
    Dim pdfFileName As String
    Dim wb As Workbook

    ' T?t c?nh báo và c?p nh?t màn hình d? tránh nh?p nháy
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    ' Ch?n file ngu?i dùng m?
    Set wb = Application.ActiveWorkbook

    ' L?y tên file g?c
    fileName = wb.Name
    baseName = Left(fileName, 13) ' L?y 13 ký t? d?u tiên

    ' L?y thu m?c file hi?n t?i
    pdfFolder = wb.Path
    If pdfFolder = "" Then pdfFolder = Environ("USERPROFILE") & "\Documents"

    ' N?u thu m?c không t?n t?i, thoát
    If Dir(pdfFolder, vbDirectory) = "" Then Exit Sub

    ' Ð?m s? sheet
    sheetCount = wb.Sheets.Count

    ' L?p qua t?ng sheet
    For sheetIndex = 1 To sheetCount
        Set ws = wb.Sheets(sheetIndex)

        ' B? qua sheet n?u không có d? li?u
        If ws.UsedRange.Cells.Count = 1 And ws.UsedRange.Cells(1, 1).Value = "" Then GoTo NextSheet

        ' Ki?m tra vùng in
        If ws.PageSetup.PrintArea <> "" Then
            ws.PageSetup.Zoom = False
            ws.PageSetup.FitToPagesWide = 1
            ws.PageSetup.FitToPagesTall = 1
        End If
        
        ' T?o tên file PDF
        pdfFileName = pdfFolder & "\" & baseName & "-" & Format(sheetIndex, "00") & ".pdf"

        ' Ki?m tra n?u tên file quá dài
        If Len(pdfFileName) > 255 Then pdfFileName = Left(pdfFileName, 250) & ".pdf"

        ' Xu?t PDF
        On Error Resume Next
        ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:=pdfFileName, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
        Err.Clear
        On Error GoTo 0
        
NextSheet:
    Next sheetIndex

    ' B?t l?i c?nh báo và c?p nh?t màn hình
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

B1 : Vào View -> Record

B2: Copy tên function trong code bên trên và dán vào ‘Macro name’

B3: Gõ chữ phím tắt để vào ‘shortcut key’ ví dụ là Q

B4: Chọn vào option Personal Macro Workbook và bấm OK

B5: Vào lại View ->Macro ->Stop Record

B6: Bấm phím ALT + F11

B7: Bấm chuột trái vào VBA Project(Personal.XLSB) -> Insert -> Module

B8: Copy code dán vào và lưu lại , xong rồi thì thoát ra

B9: Vào View -> View record. Chọn dòng thứ 2 rồi bấm vào Options và điền phím tắt vào , xong bấm OK LÀ XONG @!

B10: Bây giờ bấm CTRL + SHIFT +Q  là tự động chuyển qua pdf rồi đó !!!!!!!!

1. Nhập hợp đồng lên ERP
2. Khi lấy yêu cầu cho HĐ này thì trên màn hình yêu cầu chọn vào hợp đồng để gắn YC với hợp đồng
3. Làm các bước khác trên yêu cầu này bình thường
4. Cần Thơ làm hóa đơn nháp
5. Cần Thơ gửi hóa đơn nháp cho Tài chính HCM - phát hành hoá đơn điện tử và ghi nhận doanh thu cho Ban 3.
6. Ban 3 làm đề nghị điều chuyển doanh thu cho Cần Thơ

1.1. Mở file Pdf bằng phần mềm Foxit Phantom PDF

1.2. Chọn Tab Protect (1) à Sign & Certificate (2) à Place Signature (3)

1.3. Vẽ chọn nơi ký

2. Thiết lập chữ ký

2.1. Mục Signature Preview chọn Create New Style (4)

2.2. Chọn Lock Document After Signing

Khi chọn nút này sau khi ký tài liệu sẽ không cho phép chỉnh sửa, kể cả mở băng các phần mềm khác.

3. Chọn Nút Sign

4. Chọn nơi lưu sau ký số

5. Máy tính hiển thị cửa sổ đăng nhập TOKEN để ký số.

6. Kết quả ký số

Trân trọng cảm ơn.

Link tải phần mềm Foxit Phantom: https://drive.google.com/drive/folders/13YuKtc9zVsmJkfNuF5mpROAv4Ky5rBH9?usp=sharing

Nội dung này được bảo mật. Hãy nhập mật khẩu để xem tiếp:

Mật khẩu:

1. Để thực hiện được mục II.2 trong tài liệu đối với file báo cáo giấy mọi người cần thêm 5 cột thông tin mới như hình bôi vàng bên dưới
   • Năm (ghi nhận năm của hồ sơ) tạo cột mới để hạn chế phải nhập dữ liệu chỉ cần kéo xuống thì dữ liệu mặc định.
   • Loại hình (Giám định hay chứng nhận, kiểm định,…)
   • Số chứng thư bắt đầu (Cer_start)
   • Số chứng thư kết thúc (Cer_end)
   • Dữ liệu import phần mềm. (data_import) data excel:

=UPPER(D491&"G0"&E491&F491&G491&UPPER(RIGHT(H491,5))&";"&J491&";"&K491)

Lưu ý quan trọng: Xóa bỏ các ký ký tự bên cột F số yêu cầu để chi còn lại 5 số của số yêu cầu, bỏ các ký tự gạch ngàng, mũi tên….

1. File chứng thư đưa lên hoàn chỉnh phải đúng định dạng số chứng thư VD: 23G00GHX12345-01
2. File excel đúng định dạng với thông tin đưa ra được: 23G00GHX12345;1;10

II. Hướng dẫn dành cho admin

II.1 Bước 1: Cài đặt phần mềm Dataload

https://www.dataload.com/

Bước 2: Copy data mẫu chạy vào bảng load pm

Bước 3: Chọn data oracle R12/ 11i

Bước 4: Chon Data load (F5) à chọn màn hình quản lý chứng thư (Chrome)

Bước 5. Trên màn hình lọc chứng thư 1 số nào đó.

Bước 2: Chọn Action => Download -> HTML

Bước 3: Mở file CSV bằng phần mềm excel

Bước 4: Lưu file html vừa mở thành file XLSX (excel)

1. Cập nhật tạo hoá đơn từ 1 yêu cầu (Mục V. 2 Tạo HĐ 1 Yêu cầu)
2. Import thông tin phân công nhân sự vào yêu cầu giám định ( VII. 8. MR Tuân Import Phân công)
3. Chỉnh sửa nhanh số tiền – Ngày chứng thư – Trạng thái chứng thư ( IV. Sửa tiền – ngày CT)
4. Thực hiện chức năng phân công Giám định, Chứng nhận, kiểm định (II. Phân công GĐ-CN-KĐ)

Ngày 30/11/2023:

5. Cập nhật chức năng “3. Tạo HĐ theo Chứng thư” cho phép tạo hoá đơn theo cách chọn chứng thư giống ở ERP.

Phần mềm hiển thị màn hình đăng nhập. Anh Chị vui lòng đăng nhập bằng tài khoản ERP của mình.

Bước 2: Chọn menu bên trái mục V.   HÓA ĐƠN (HĐ) -> 2. tạo hóa đơn 1 Yêu cầu

Bước 3: Chọn số yêu cầu cần thực hiện hoá đơn: phần mềm tự lấy dữ liệu của yêu cầu và tạo thành 1 hoá đơn nháp

Bước 4: Nhập các thông tin còn thiếu trên hoá đơn bấn cập nhật sau đó có thể in hoá đơn.

(Phần mềm tự động hoàn tất số yêu cầu khi click chọn in hoá đơn).