< návrat zpět

MS Excel


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

Zaslal/a 15.9.2020 16:50

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ěď >

#048013
Stalker
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
#048014
avatar
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
#048015
Stalker
Možná tohle:?
oDokument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"citovat
#048016
avatar
Ne možná, ale takhle jo.

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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46