PDF Code 1.txt

Sub SaveAsPDF()
    Dim invoiceNo As String
    Dim customerName As String
    Dim fname As String
    Dim filePath As Variant

    ' Get invoice number and customer name from specific cells
    invoiceNo = Range("H10").Value
    customerName = Range("C10").Value
    
    ' Construct file name
    fname = invoiceNo & " - " & customerName
    
    ' Prompt the user to select the save location and filename
    filePath = Application.GetSaveAsFilename(InitialFileName:=fname, _
                                             FileFilter:="PDF Files (*.pdf), *.pdf", _
                                             Title:="Save As PDF")
    
    ' Check if the user canceled the dialog
    If filePath = False Then
        MsgBox "Operation canceled.", vbExclamation
        Exit Sub
    End If
    
    ' Export the PO Template sheet as PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=filePath, _
                                    IgnorePrintAreas:=False
    
    ' Display confirmation message
    MsgBox "PDF file saved successfully.", vbInformation
End Sub

PDF Code 2.txt

Sub SaveAsPDF()

    Dim invoiceNo As String
    Dim customerName As String
    Dim fname As String
    Dim Path As String
    
    ' Get invoice number and customer name from specific cells
    
    invoiceNo = Range("F6").Value
    customerName = Range("B10").Value
    
    ' Construct file name
    fname = invoiceNo & " - " & customerName
    
    ' Specify file path
    Path = "C:\Users\TAHA\Documents\YT\Short\"
    
    ' Check if the specified path exists
    If Dir(Path, vbDirectory) = "" Then
        MsgBox "The specified path does not exist.", vbExclamation
        Exit Sub
    End If
    
    
    ' Export active sheet as PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    ignoreprintareas:=False, _
                                    fileName:=Path & fname
    
    ' Display confirmation message
    MsgBox "PDF file saved successfully.", vbInformation

End Sub

VBA Code (Create New Invoice).txt

Sub CreateNewInvoice()
invoiceno = Range("E3")
Range("b3,a9:d19,e5").ClearContents
MsgBox "Your Next Invoice No. is " & invoiceno + 1
Range("E3") = invoiceno + 1
ThisWorkbook.Save


End Sub

VBA Code (Save as PDF).txt


Sub SaveAsPDF()
InvoiceNo = Range("E3")
customername = Range("B3")
Path = "C:\Users\Back-UPS\Documents\Invoice\"
fname = InvoiceNo & " - " & customername

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, Filename:=path & fname

End Sub

// configuration
var apiToken = "YOU_TELEGRAM_TOKEN";
var appUrl   = "YOUR_APPSCRIPT_URL";
var apiUrl   = "https://api.telegram.org/bot"+apiToken;
var command  = {
  "/start": "welcome to my bot",
  "hi": "hello",
  "what is your name?": "my name is devisty bot"
}


// set webhook
function setWebhook(){
  var url = apiUrl + "/setwebhook?url="+appUrl;
  var res = UrlFetchApp.fetch(url).getContentText();
  Logger.log(res);
}


// handle webhook
function doPost(e){
  var webhookData = JSON.parse(e.postData.contents);
  var from = webhookData.message.from.id;
  var text = webhookData.message.text;

  if(typeof command[text] == 'undefined'){
    var sendText = encodeURIComponent("command not found");
  }else{
    var sendText = encodeURIComponent(command[text]);
  }

  var url  = apiUrl+"/sendmessage?parse_mode=HTML&chat_id="+from+"&text="+sendText;
  var opts = {"muteHttpExceptions": true}
  UrlFetchApp.fetch(url, opts).getContentText();
}


function doGet(e){
  return ContentService.createTextOutput("Method GET not allowed");
}

សម្រាប់កម្មវិធី Microsoft Excel រក្សាជាឯកសារ PDF

Sub SaveAsPDFODS()

    Dim invoiceno As String
    Dim ordersheet As String
    Dim customername As String
    Dim Path As String
    Dim fname As String
    Dim OldPA As String

    customername = Range("D5").Value
    ordersheet = Range("D3").Value
    invoiceno = Range("G3").Value
    
    customername = Replace(customername, "\", "_")
    customername = Replace(customername, "/", "_")
    customername = Replace(customername, ":", "_")
    customername = Replace(customername, "*", "_")
    customername = Replace(customername, "?", "_")
    customername = Replace(customername, """", "_")
    customername = Replace(customername, "<", "_")
    customername = Replace(customername, ">", "_")
    customername = Replace(customername, "|", "_")

    Path = "C:\Users\Back-UPS\Documents\Invoice\"
    'fname = invoiceno & " - " & customername & ".pdf"
    ' ? Add OrderSheet into the filename
    fname = customername & " - ord" & ordersheet & " - inv" & invoiceno & ".pdf"

    OldPA = ActiveSheet.PageSetup.PrintArea
    ActiveSheet.PageSetup.PrintArea = "$B$1:$H$47"

    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        
        'Center horizontally only
        .CenterHorizontally = True
        .CenterVertically = False   '<<<< MUST BE OFF to push up
        
        'Margins (1 cm top)
        .TopMargin = Application.CentimetersToPoints(1)      ' 1 cm
        .BottomMargin = Application.CentimetersToPoints(0.3) ' 0.3 cm
        .LeftMargin = Application.CentimetersToPoints(0.3)
        .RightMargin = Application.CentimetersToPoints(0.3)
    End With

    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Path & fname, _
        IgnorePrintAreas:=False

    ActiveSheet.PageSetup.PrintArea = OldPA

    MsgBox "PDF Order Sheet Successfully!", vbInformation

End Sub

រូបមន្តថ្ងៃខែឆ្នាំខ្មែរ Cell


=CHOOSE(WEEKDAY(NOW()),
"អាទិត្យ","ច័ន្ទ","អង្គារ","ពុធ","ព្រហស្បតិ៍","សុក្រ","សៅរ៍")
& " " &
DAY(NOW()) & " " &
CHOOSE(MONTH(NOW()),
"មករា","កុម្ភៈ","មីនា","មេសា","ឧសភា","មិថុនា",
"កក្កដា","សីហា","កញ្ញា","តុលា","វិច្ឆិកា","ធ្នូ")
& " " &
YEAR(NOW()) & " " &
TEXT(NOW(),"hh:mm") & " " &
IF(HOUR(NOW())<12,"ព្រឹក","ល្ងាច")

Function Translate(text As String, fromLang As String, toLang As String) As String
    ' If empty cell ? return blank
    If Trim(text) = "" Then
        Translate = ""
        Exit Function
    End If

    Dim url As String, json As String
    url = "https://api.mymemory.translated.net/get?q=" & text & "&langpair=" & fromLang & "|" & toLang

    On Error GoTo ErrHandler
    json = WorksheetFunction.WebService(url)
    Translate = Split(Split(json, """translatedText"":""")(1), """")(0)
    Exit Function

ErrHandler:
    Translate = ""
End Function