Un saluto a tutti gli amici del forum , in particolare al caro amico Diego .
Per la stampa di alcuni dati su scheda cartacea di formato diverso A4 , con una stampante laser ultima generazione che supporta tranquillamente il fronte retro , sto usando il codice di seguito elencato , che mi crea un documento con due pagine il quale deve essere stampato sulla scheda , in modalità fronte retro . Ovviamente visto le altre stampe che la stampante deve effettuare , non mi è possibile settare come default il fronte retro , Intanto non riesco far stampare in nessun modo il fronte retro .
ecco il codice :
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oPara5 As Word.Paragraph, oPara21 As Word.Paragraph
oWord = CreateObject("Word.Application")
oWord.Visible = True
oDoc = oWord.Documents.Add
oDoc.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscape
oDoc.PageSetup.PaperSize = WdPaperSize.wdPaperCustom
oDoc.PageSetup.PageWidth = 650
oDoc.PageSetup.PageHeight = 393
oDoc.PageSetup.TopMargin = 30
oDoc.PageSetup.BottomMargin = 20
oDoc.PageSetup.LeftMargin = 20
oDoc.PageSetup.RightMargin = 20
Dim scheda As String = "1000"
Dim prodotto As String = "Nome Prodotto"
Dim operatore As String = "Nome Operatore"
Dim denominazione As String = "Denominazione"
Dim indirizzo As String = "Indirizzo Denominazione"
Dim paese As String = "Nome Citta"
Dim numeroMatricola As String = "76714001665 2"
oDoc.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscape
oPara5 = oDoc.Content.Paragraphs.Add
oPara5.Range.Text = ""
oPara5.Range.Font.Name = "calibri"
oPara5.Range.Font.Size = 13
oPara5.Range.Font.Bold = False
oPara5.Format.SpaceAfter = 0
oPara5.Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
oPara5.Range.InsertParagraphAfter()
oPara5 = oDoc.Content.Paragraphs.Add
oPara5.Range.Text = ""& scheda & " Lavorazione In atto"& vbCrLf
oPara5.Range.Font.Name = "calibri"
oPara5.Range.Font.Size = 13
oPara5.Range.Font.Bold = False
oPara5.Format.SpaceAfter = 0
oPara5.Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
oPara5.Range.InsertParagraphAfter()
oPara5 = oDoc.Content.Paragraphs.Add
oPara5.Range.Text = ""& denominazione & " operatore"& operatore
oPara5.Range.Font.Name = "calibri"
oPara5.Range.Font.Size = 13
oPara5.Range.Font.Bold = False
oPara5.Format.SpaceAfter = 330
oPara5.Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphJustify
oPara5.Range.InsertParagraphAfter()
oPara21 = oDoc.Content.Paragraphs.Add
oPara21.Range.Text = ""
oPara21.Range.Font.Name = "calibri"
oPara21.Range.Font.Size = 16
oPara21.Range.Font.Bold = False
oPara21.Format.SpaceAfter = 50
oPara21.Range.InsertParagraphAfter()
oPara21 = oDoc.Content.Paragraphs.Add
oPara21.Range.Text = ""& indirizzo
oPara21.Range.Font.Name = "calibri"
oPara21.Range.Font.Size = 16
oPara21.Range.Font.Bold = False
oPara21.Format.SpaceAfter = 0
oPara21.Range.InsertParagraphAfter()
oDoc.Printdocument.PrinterSettings.Duplex = Printing.Duplex.Horizontal
l'ultima riga :
oDoc.Printdocument.PrinterSettings.Duplex = Printing.Duplex.Horizontal
Mi da errore !!!
Ma è talmente complicato inviare il comando alla stampante da VB per il fronte retro ?