MS Excel

Prosím o radu. Mám v excelu data, která dosadím do word formuláře a vytisknu word dokument. Chci vytisknout jen jednu stranu, ale nedaří se mi nastavit tiskárnu. Když zadám příkaz: oDokument.PrintOut From:=1, To:=1 tak se sekne a napíše: Run-time eror 13: Type mismatch
Když dám toto: oDokument.PrintOut Pages:="1" tak mi to vytiskne obě stránky.
Už jsem se smířil s tím, že budu mít dva dokumenty "Přední strana.docx a Druhá strana.docx.
Přesto, kdyby někdo měl zkušenost jak si s tím poradit.
Předem díky

Celé makro:
Private Sub cmbPredniStranka_Click()
Dim oDokument As Word.Document
Dim radek As Integer
radek = lstSeznamKlientu.ListIndex + 2
'******************* Ošetřit, když nic nevybere ***************
adresar = ThisWorkbook.Path
soubor = "\" & Cells(radek, 2).Text & " " & Cells(radek, 3).Text & "," & Cells(radek, 10).Text & ".docx"

Set objWord = New Word.Application
Set oDokument = objWord.Documents.Add(adresar & "\SmlouvaNoc.docx")
objWord.Visible = True
oDokument.Bookmarks("prijmeni").Range.Text = Cells(radek, 2).Text & " " & Cells(radek, 3).Text

'********** vytisknout přední stranu **************
oDokument.PrintOut Pages:="1"

a = MsgBox("Chceš vytisknout zadní stranu?", Buttons:=vbYesNo)
If a = 6 Then 'Tisk zadní strany
oDokument.PrintOut Pages:="2"
End If

oDokument.SaveAs (adresar & soubor)
oDokument.Close SaveChanges:=True

ActiveCell.Select

Unload vyberSmlouvu

End Sub

Zaslat odpověď >

Stalker(15.9.2020 21:48)#048013

Neměl by náhodou ten kód být takto:?
oDokument.PrintOut From:="1", To:="1"

nebo

oDokument.PrintOut From:=CStr(1), To:=CStr(1)citovat

Jiří497(15.9.2020 22:11)#048014

Dík za nápad, ale také to nefunguje.
Podle mě se tam bijí rozdílné parametry pro word - "Pages" a jiný pro excel "From, To".
Excelovské makro si neporadí s wordovským zápisem a word (který tiskne) zase nezpracuje parametry od excelu - můj názor.

P.S. Jenom proboha nikdo nevymýšlejte žádné složité kody, jak to obejít. Pokud to nejde jednoduše, tak budu tisknout dva jednostránkové soubory.citovat

Stalker(15.9.2020 22:32)#048015

Možná tohle:?
oDokument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"citovat

Jiří497(15.9.2020 22:41)#048016

Ne možná, ale takhle jo.

Toto funguje. Tisíceré díky.citovat

Téma: Nastavení tisku když z Excelu tisknu word dokume

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje