Printing VBA generated string at a particular location

[KolGuyXcel]

I'm applying filter to Column A & and then to Column B using VBA and then read the date from Column C. I'm using VBA to generate a string of around 40 to 50 character length (it would easily fit into less than half a line) from this data in Column C. I need to print this VBA generated string value at a specific location (around 3 cm from the top boundary and 4 cm from the left boundary of a 25 cm X 15 cm page). Is it possible to directly send this VBA generated string value directly to the printer?

Note: I'm not printing anything directly from this worksheet.

 

[James006]

Hi,
Within your macro, have you already tested :

Debug.Print strData

 

[HaHoBe]

Hi KolGuyXcel,

if you do not print anything from the worksheet I would use Word: in a template generate a TextFrame, place it accordingly, and use a code for getting the text over like (alter the names here to suit, code to be placed in workbook from which to print)

Sub TextFromExcelToWord()
  
  Dim appWord     As Object
  Dim appDoc      As Object
   
  Set appWord = CreateObject("Word.Application")
  Set appDoc = appWord.Documents.Open(ThisWorkbook.Path & "\Sample Print.docx")
  appDoc.Bookmarks("YourTextFrame").Range.Text = Worksheets("YourName").Range("C6").Value
  appWord.Visible = True
  
  appWord.PrintOut Background:=False, Copies:=1
  
  appDoc.Close False
  Set appDoc = Nothing
  appWord.Quit
  Set appWord = Nothing

End Sub

Ciao,
Holger

 

[KolGuyXcel]

Hi,
Within your macro, have you already tested :

Debug.Print strData

Yes, I have. That's working fine.

 

[KolGuyXcel]

Hi KolGuyXcel,

if you do not print anything from the worksheet I would use Word: in a template generate a TextFrame, place it accordingly, and use a code for getting the text over like (alter the names here to suit, code to be placed in workbook from which to print)

Sub TextFromExcelToWord()
 
  Dim appWord     As Object
  Dim appDoc      As Object
  
  Set appWord = CreateObject("Word.Application")
  Set appDoc = appWord.Documents.Open(ThisWorkbook.Path & "\Sample Print.docx")
  appDoc.Bookmarks("YourTextFrame").Range.Text = Worksheets("YourName").Range("C6").Value
  appWord.Visible = True
 
  appWord.PrintOut Background:=False, Copies:=1
 
  appDoc.Close False
  Set appDoc = Nothing
  appWord.Quit
  Set appWord = Nothing

End Sub

Ciao,
Holger

Good work-around. I'll make do with this until anything better.