tuning4you
Gebruiker
- Lid geworden
- 3 jun 2007
- Berichten
- 328
Ik heb onderstaande code gevonden op internet om te testen met afdrukken van een word document.
Via objWordApp.ActivePrinter = "Adobe PDF" kan ik al de printer kiezen maar ik zou nog een aantal settings willen meegeven zoals zwart wit afdrukken, landscape en aantal pagina's.
Iemand een idee?
Dim objWordApp As Word.Application
objWordApp = New Word.Application
Dim objDoc As New Word.Document
'Show the Word application window if checked.
objWordApp.Visible = IIf(chkShowWord.Checked, True, False)
'Create a new Word document and add some text to it.
objDoc = objWordApp.Documents.Add
With objDoc
.Range.InsertAfter("Printing with Word")
.Paragraphs.Item(1).Range.Font.Bold = True
.Paragraphs.Item(1).Range.Font.Size = 14
.Range.InsertParagraphAfter()
.Paragraphs.Item(2).Range.Font.Bold = False
.Paragraphs.Item(2).Range.Font.Size = 12
.Range.InsertAfter("This is the first line of the test printout")
.Range.InsertParagraphAfter()
.Range.InsertAfter("and this is the second line of the test printout")
Try
'Print the Word document.
.PrintOut(True, True)
Catch exc As Exception
Console.WriteLine(exc.Message)
End Try
Via objWordApp.ActivePrinter = "Adobe PDF" kan ik al de printer kiezen maar ik zou nog een aantal settings willen meegeven zoals zwart wit afdrukken, landscape en aantal pagina's.
Iemand een idee?
Dim objWordApp As Word.Application
objWordApp = New Word.Application
Dim objDoc As New Word.Document
'Show the Word application window if checked.
objWordApp.Visible = IIf(chkShowWord.Checked, True, False)
'Create a new Word document and add some text to it.
objDoc = objWordApp.Documents.Add
With objDoc
.Range.InsertAfter("Printing with Word")
.Paragraphs.Item(1).Range.Font.Bold = True
.Paragraphs.Item(1).Range.Font.Size = 14
.Range.InsertParagraphAfter()
.Paragraphs.Item(2).Range.Font.Bold = False
.Paragraphs.Item(2).Range.Font.Size = 12
.Range.InsertAfter("This is the first line of the test printout")
.Range.InsertParagraphAfter()
.Range.InsertAfter("and this is the second line of the test printout")
Try
'Print the Word document.
.PrintOut(True, True)
Catch exc As Exception
Console.WriteLine(exc.Message)
End Try