Merge branch 'Anka2310-patch-1'

2 files changed, 4 insertions, 2 deletions

diff --git a/fpdf.go b/fpdf.go
index 7294df7..bd4aa4e 100644
--- a/fpdf.go
+++ b/fpdf.go
@@ -2441,7 +2441,7 @@ func (f *Fpdf) WriteAligned(width, lineHeight float64, textStr, alignStr string)
 			f.Write(lineHeight, lineStr)
 			f.SetLeftMargin(lMargin)
 		case "R":
-			f.SetLeftMargin(lMargin + (width - lineWidth) - rMargin)
+			f.SetLeftMargin(lMargin + (width - lineWidth) - 2.01*f.cMargin)
 			f.Write(lineHeight, lineStr)
 			f.SetLeftMargin(lMargin)
 		default:
diff --git a/fpdf_test.go b/fpdf_test.go
index d894607..7d956ce 100644
--- a/fpdf_test.go
+++ b/fpdf_test.go
@@ -791,6 +791,8 @@ func ExampleFpdf_AddFont() {
 // ExampleFpdf_WriteAligned demonstrates how to align text with the Write function.
 func ExampleFpdf_WriteAligned() {
 	pdf := gofpdf.New("P", "mm", "A4", example.FontDir())
+	pdf.SetLeftMargin(50.0)
+	pdf.SetRightMargin(50.0)
 	pdf.AddPage()
 	pdf.SetFont("Helvetica", "", 12)
 	pdf.WriteAligned(0, 35, "This text is the default alignment, Left", "")
@@ -801,7 +803,7 @@ func ExampleFpdf_WriteAligned() {
 	pdf.Ln(35)
 	pdf.WriteAligned(0, 35, "This text is aligned Right", "R")
 	pdf.Ln(35)
-	line := "This text fill line using word spacing. This can by used to write justified text"
+	line := "This can by used to write justified text"
 	leftMargin, _, rightMargin, _ := pdf.GetMargins()
 	pageWidth, _ := pdf.GetPageSize()
 	pageWidth -= leftMargin + rightMargin