I have the following code that works well and I need just one point in it
Code: Select all
Sub PRINT_ALL()
Dim Sh As Worksheet, LR As Long, Cel As Range
Dim Stx1 As String, Stx2 As String, St1 As String, St2 As String, Texte1 As String, Texte2 As String
Set Sh = Sheets("First stage")
LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
Stx1 = "Dollars ": Stx2 = "Cents ": St1 = "and ": St2 = "No non"
Texte1 = Ar_WriteDownNumber(Int(Cells(LR, "Z")))
Texte2 = Ar_WriteDownNumber(100 * Cells(LR, "Z") Mod 100)
With Cells(LR + 1, "A")
.Value = "Exchange an amount : "
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.Font.Size = 16
.Font.Name = "Times New Roman"
.Font.Bold = True
.RowHeight = 24
End With
With Cells(LR + 1, "B")
If 100 * Cells(LR, "Z") Mod 100 = 0 Then .Value = "Only " & Texte1 & Stx1 & St2 Else _
.Value = "Only " & Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2
.Offset(1, 0).Value = "Signature Signature Signature Signature Signature Signature"
.Offset(1, 0).HorizontalAlignment = xlLeft
.Offset(1, 0).VerticalAlignment = xlCenter
.Offset(1, 0).Font.Size = 16
.Offset(1, 0).Font.Name = "Times New Roman"
.Offset(1, 0).Font.Bold = True
.Offset(1, 0).RowHeight = 24
.Offset(4, 0).Value = "xxxxxxxxxxx data / / Signature dddddddddddd date / / Signature"
.Offset(4, 0).HorizontalAlignment = xlLeft
.Offset(4, 0).VerticalAlignment = xlCenter
.Offset(4, 0).Font.Size = 16
.Offset(4, 0).Font.Name = "Times New Roman"
.Offset(4, 0).Font.Bold = True
.Offset(4, 0).RowHeight = 24
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range(Cells(LR + 1, "A"), Cells(LR + 7, "B")) = ""
End Sub
How can modify this line to achieve this?
Code: Select all
ActiveWindow.SelectedSheets.PrintOut Copies:=1