dove (a sinistra, al centro, a destra)?
Per un testo a sinistra usa questa macro abbinandola all'apposito pulsante
- Codice: Seleziona tutto
Private Sub Comando2_Click()
Set XL = CreateObject("Excel.Application")
XL.Visible = True
Perc = "C:\Tuopercorso\Karug64\"
NFile = "TEST_PRINT.txt"
MyFile = Perc & NFile
XL.Workbooks.OpenText MyFile
Set WB = XL.ActiveWorkbook
Set WS = WB.Worksheets(1)
WS.cells.Clear
Close #1
Riga = 0
Open MyFile For Input As #1
Do While Not EOF(1)
Riga = Riga + 1
Line Input #1, Rigatesto
WS.Range("A" & Riga).Value = Rigatesto
Loop
Close #1
WS.Columns("A").Font.Name = "Courier New"
WS.Columns("A").Font.Size = 8
WS.Columns("A").EntireColumn.AutoFit
Set PageSetup = WS.PageSetup
PageSetup.Orientation = 2
PageSetup.LeftMargin = XL.InchesToPoints(0.287401575)
PageSetup.RightMargin = XL.Application.InchesToPoints(0.287401575)
PageSetup.LeftHeader = "AAAAAAAAAA" '<<<< testo testata a sinistra
PageSetup.LeftFooter = "BBBBBBBBB" '<<<< testo pie' di pagina a sinistra
WB.PrintOut
WB.Close False
XL.Quit
Set XL = Nothing
End Sub
ciao