Tisk souboru, vybírání stránek k tisku   zodpovězená otázka

VB.NET, WinForms, Tisk

21. 11. 2010 23:50

anonym
 

194.228.223.5

Dobrý den,

Povedlo se mi najít jeden skript na tisk souboru, ale nemohu nalézt, jak vytisknout jenom 1,2 a 4 stránku. Jde to nějak?

Dim MyProcess As New Process
        MyProcess.StartInfo.CreateNoWindow = False
        MyProcess.StartInfo.Verb = "print"
        MyProcess.StartInfo.FileName = "C:\Texty.doc"
        MyProcess.Start()
        MyProcess.WaitForExit(10000)
        MyProcess.Close()

Děkuji
nahlásit spamnahlásit spam 0 odpovědětodpovědět

22. 11. 2010 2:03

Ondřej Linhart
 

Hodnocení -553     Příspěvků 3274

Tímto způsobem půjde vytisknout pouze celý dokument.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

22. 11. 2010 10:50

anonym
 

85.93.179.230

A je nějaký jiný způsob?
nahlásit spamnahlásit spam 0 odpovědětodpovědět

22. 11. 2010 15:48

Ondřej Linhart
 

Hodnocení -553     Příspěvků 3274

Mohlo by to jít použitím COM rozhraní Wordu, ale nezkoušel jsem to, tak si nejsem na 100% jist. Podmínkou je samozřejmě aby na všech počítačích kde to má chodit byl nainstalován Word.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

23. 11. 2010 18:26

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

Podívejte se na článek na tomto webu (i když je už staršího data), tam je vysvětleno, jak vytvořit programově instanci Wordu a otevřít v ní dokument.

Pak stačí zavolat metodu PrintOut, které dáte do parametru Pages to samé, co byste napsal do příslušného políčka dialogu pro tisk, např. 1-3,4,17-19,20.

http://msdn.microsoft.com/en-us/library/...
nahlásit spamnahlásit spam 0 odpovědětodpovědět

23. 11. 2010 18:39

Ondřej Linhart
 

Hodnocení -553     Příspěvků 3274

No však to je právě ono použití COM rozhraní Wordu. Šlo by to udělat i pomocí obyčejného VBScriptu, ve kterém by se vytvořila instance pomocí CreateObject.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

23. 11. 2010 21:37

anonym
 

194.228.223.5

A lze tím vytisknout i soubor MS Publisher? Je ten postup stejný?
nahlásit spamnahlásit spam 0 odpovědětodpovědět

23. 11. 2010 21:44

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

Možná ta funkce bude jiná, ale ten dialog pro tisk určitě nějakou funkci volá a co má tisknout, jí předává.

Interop pro Publisher existuje, takže by to mělo jít.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

23. 11. 2010 22:26

anonym
 

194.228.223.5

Nevim proč, ale píše mi to chybu :(.

Type 'Microsoft.Office.Interop.Word.Application' is not defined.

Dim w As New Microsoft.Office.Interop.Word.Application()
        w.Documents.Open(IO.Path.Combine(Application.StartupPath, "C:\Texty.doc")).Activate()

nahlásit spamnahlásit spam 0 odpovědětodpovědět

23. 11. 2010 23:21

Ondřej Linhart
 

Hodnocení -553     Příspěvků 3274

Vsadím se, že jste se neobtěžoval přidat referenci na to COM rozhraní...
nahlásit spamnahlásit spam 0 odpovědětodpovědět

23. 11. 2010 23:20

Ondřej Linhart
 

Hodnocení -553     Příspěvků 3274

Pro Publisherové dokumenty samozřejmě musíte použít COM rozhraní Publisheru a ne Wordu.

Není to žádná univerzální věc (ta ani neexistuje), pro každý dokument musíte použít COM rozhraní příslušné aplikace, pokud ho má a pokud přes něj podporuje tisk.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

24. 11. 2010 7:38

anonym
 

194.228.223.5

Píše to ještě chybu, že tu knihovnu nemůže nalézt.

Přídával jsem tam oboje a psalo to u obou.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

24. 11. 2010 13:38

Ondřej Linhart
 

Hodnocení -553     Příspěvků 3274

Nesmysl. Nemohl jste to tam přidávat když to hlásí tuto chybu. Víte vůbec o čem mluvím? Pokud ne, řekněte to rovnou a lidé se tu nebudou snažit radit zbytečně.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

24. 11. 2010 16:04

anonym
 

194.228.223.5

Asi ano. Ve Visual Basicu dám nahoře "Project", "Add references...", vyberu "COM" a "Microsoft Publisher nebo Word Library 11.0".

Poté to ihned napíše:

"The referenced component 'Publisher' could not be found."
nahlásit spamnahlásit spam 0 odpovědětodpovědět

24. 11. 2010 16:57

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

Musíte vybrat tu knihovnu Publisheru. Pak by to mělo jít, samozřejmě použijte Object Browser a podívejte se, ve kterém jmenném prostoru ta třída je.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

25. 11. 2010 18:14

anonym
 

194.228.223.5

Už jsem zjistil, proč to nešlo, jsem neměl nainstalovany ty knihovny. Word funguje bezvadně, ale mám problém s otevřením:

Dim w As New Microsoft.Office.Interop.Publisher.Application()
w.document.Open(IO.Path.Combine(Application.StartupPath, "C:\Pub.pub")).Activate() 'Tady to píše Public member 'document' on type 'ApplicationClass' not found.

Dim w As New Microsoft.Office.Interop.Word.Application()
w.document.Open(IO.Path.Combine(Application.StartupPath, "C:\Texty.doc")).Activate() 'Ale s tímto problém není
nahlásit spamnahlásit spam 0 odpovědětodpovědět

25. 11. 2010 19:25

Tomáš Herceg
 

Hodnocení 1847     Příspěvků 3847

No protože na proměnné w v prvním případě neexistuje vlastnost Document.

Ono to asi nebude stejné, když je každé jiná aplikace, kterou psali úplně jiní lidé.

Podívejte se přes ObjectBrowser na tu třídu Microsoft.Office.Interop.Publisher.Application, a uvidíte, co obsahuje za prvky. Nebo použijte IntelliSense.
nahlásit spamnahlásit spam 0 odpovědětodpovědět

29. 11. 2010 19:54

anonym
 

194.228.223.5

Já se v tom jaksi nevyznám, nemohl byste mi poslat prosím kód?
nahlásit spamnahlásit spam 0 odpovědětodpovědět

1. 12. 2010 0:03

anonym
 

194.228.223.5

Díky. Už mi vše funguje jak má.
nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback