Sub CabeçalhoMapa(Grelha As MSFlexGrid)
Dim Abcissa As Integer
Abcissa = 15
Printer.ScaleMode = vbMillimeters

Printer.Line (1, 1 + Abcissa)-(Printer.ScaleWidth, 7 + Abcissa), vbBlue, BF
With Printer
.FontSize = 14
.FontBold = True
.ForeColor = vbBlue
.CurrentX = 1
.CurrentY = 1
Printer.Print "CDCA - NATAÇÃO"
.ForeColor = vbWhite
.FontSize = 10
.CurrentX = 2
.CurrentY = 1 + Abcissa
SetBkMode Printer.hdc, TRANSPARENT
Printer.Print Grelha.TextMatrix(0, 0)
.CurrentX = 70
.CurrentY = 1 + Abcissa
SetBkMode Printer.hdc, TRANSPARENT
Printer.Print Grelha.TextMatrix(0, 1)
.CurrentX = 115 - Printer.TextWidth(Grelha.TextMatrix(0, 2))
.CurrentY = 1 + Abcissa
SetBkMode Printer.hdc, TRANSPARENT
Printer.Print Grelha.TextMatrix(0, 2)
.CurrentX = 135 - Printer.TextWidth(Grelha.TextMatrix(0, 3))
.CurrentY = 1 + Abcissa
SetBkMode Printer.hdc, TRANSPARENT
Printer.Print Grelha.TextMatrix(0, 3)
.CurrentX = 155 - Printer.TextWidth(Grelha.TextMatrix(0, 4))
.CurrentY = 1 + Abcissa
SetBkMode Printer.hdc, TRANSPARENT
Printer.Print Grelha.TextMatrix(0, 4)
.CurrentX = 175 - Printer.TextWidth(Grelha.TextMatrix(0, 5))
.CurrentY = 1 + Abcissa
SetBkMode Printer.hdc, TRANSPARENT
Printer.Print Grelha.TextMatrix(0, 5)
.CurrentX = 195 - Printer.TextWidth(Grelha.TextMatrix(0, 6))
.CurrentY = 1 + Abcissa
SetBkMode Printer.hdc, TRANSPARENT
Printer.Print Grelha.TextMatrix(0, 6)
End With


End Sub

As you can see, CurrentX can be assigned more then once for a single line.

Best regards