Makra jsou v seriálu Dana Sedláčka. Makro By mohlo jít i možná nahrát pomocí záznamníku, ale musíte dávat pozor - používat myš co nejméně. Bohu - žel já už vlastní tiskárnu dlouho nepoužívám, takže nemůžu přímo poradit. jen mám z dob, kdy jsem tiskárnu měl makro :
Sub Tisk
oDoc = ThisComponent
'Deklarace pro tiskárnu - tady může být problém
Dim mPrinter(0) As New com.sun.star.beans.PropertyValue
mPrinter(0).Name="Name"
mPrinter(0).value="<MP150>"
oDoc.Printer = mPrinter()
Dim oRangeAddress as New com.sun.star.table.CellRangeAddress
'Nastavení tiskové oblasti
oRangeAddress.Sheet = 1 ' List2
oRangeAddress.StartColumn = 3 'Sloupec D
oRangeAddress.StartRow = 3 'řádek 4
oRangeAddress.EndColumn = 5 'Sloupec F
oRangeAddress.EndRow = 6 'řádek 7
oDoc.Sheets(1).setPrintAreas(oRangeAddress())
Dim mPrintOpts(0) As New com.sun.star.beans.PropertyValue
oDoc.Print(mPrintOpts())
End Sub
Vzpomínám si, že mne nějakou dobu trápilo nastavení. Používal jsem jen "střeva" takže samostatně možná bude zapotřebí volat UNO dispečera, ale vyzkoušejte když nenajde u Dana.
Jenom mám takový dojem, že když by jste tisknul manuálně třeba "dodák", tak by mělo fungovat při opakování tisku nastavení. Když tiskneme 1 dodák týdně - asi bych to neřešil. Když by jich bylo víc denně, nechám sešit otevřený a nastavení by mělo platit pro vybraný úsek stejně.
Editoval neutr (7. 6. 2013 09:09:21)
Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ