MS Excel

Aha, už jsem to pochopil :)

Co se toho tisku týká, tak mi záznamník příliš nepomohl, respektive pomohl nastavit tisk, ale ta oblast tisku se mi nedaří nastavit... Dokázal bych mu nastavit tisk, kdybych to potřeboval vytisknout celé, ale když potřebuju tisknout každou tabulku včetně komentářů zvlášť, ne a ne to rozchodit. Zkoušel jsem i prohledávat forum, ale nic kloudnýho jsem nenašel...citovat

Tak jsem to nějak spatlal, ale občas si to hraje s tím logem a přidává ještě jedno, nevím, zda jsem to udělal nějak špatně, ale pro jistotu přidávám kód...

Private Sub Akce_Tisk()
' muzes nastavit oblasti tisku a jine parametry pro tisk atd ...
Range("A21:H21").Select
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
For eTab = 1 To 2
rdW = (eTab - 1) * Cells(1, 14) + 1
rdLast = Cells(eTab, 14)
ActiveSheet.Range(Cells(rdW, 1), Cells(rdLast, 13)) _
.PrintOut Copies:=1, _
ActivePrinter:="\\T2315.aero.cz\KONICA MINOLTA magicolor 2500W:" 'dosadit svou tiskárnu
Next eTab
ActiveSheet.HPageBreaks(1).Delete
MsgBox "Dokument odeslán do tiskárny"
End Sub

Mrkni se mi prosím, zda je vše, tak jak má být.citovat

Ještě ta příloha... jsem nějak opoměl..citovat

Ahh, perfektní, díky moc, už se to zdá být v pořádku :)

Teď mi už jen zbývá pořešit 3 poslední problémy na které jsem přišel, pak už by vše mělo být funkční a již tě nebudu svými občas jistě i hloupými dotazy obtěžovat :)

1, Šlo by do menu na listě "Evidence" přidat tlačítko, které by fungovalo něco jako reset ? Tím myslím, aby se po kliknutí na něj list vrátil do původního stavu, aby jej dotyčný operátor nemusel Promazávat ručně ? Nejlépe, aby se vrátil i na oné 3 řádky na tabulku pokud možno...

2, Možná trochu oříšek... Problém vzniká, když se vyplní formulář například za 14.10.12, rozdělá se formulář na 15.10.12 a bude třeba doupravit a vytisknout starší formulář... lze nějak pořešit, aby se načetla data ze starších souborů ? Snad přez nějaký dialog, pomocí kterého vyberu soubor jež se má otevřít a pak se data z tabulky jen nakopírují do listu evidence a pak už se bude pokračovat stejně jako kdyby byl nový, jen se starším datem... ??
Co mě snad ještě napadlo, že by mohlo stačit, aby se makro pro tisk kopírovalo společně s listem "Tisk" do nového souboru... to sice není přesně to, co by se mi líbilo, ale asi to bude jednodužší..

3, A poslední věc, jak ošetřit to, aby se data z velkého LK ukládala do stejného souboru, tedy reportu jako data z malého LK ??? jde o to, že když budu mít soubor Evidence otevřený na obou počítačích, soubory se budou pravděpodobně přepisovat, ale já bych potřeboval, aby jedna evidence ukládala pouze do tabulky malé LK a druhá pouze do tabulky velké LK, aby pak nedocházelo k tomu, že budu muset dávat ručně oba soubory dohromady a kopírovat data z tabulky do tabulky, aby se mi změny projevily ve výkonech u obou LK... Snad jsem to popsal srozumitelně...

Pokud by tě napadlo jiné řešení na kterýkoliv z bodů, byl bych vděčný.. budu vděčný za jakékoliv řešení..

Poté už opravdu nebudu obtěžovat :)
Díky Míracitovat

Omlouvám se, ale všiml jsem si toho, až když jsem začal testovat... a ano, přesně tak, na jednom PC se zapisuje jen malé LK a na druhém jen velké LK, po zapsání by bylo dobré, aby se data ukládala do jedné tabulky pro pozdější zpracování, viz "Tisk".

V podstatě ano, i takto je to možné a možná to i tak bude lepší a bezpečnější, když se budou ukládat ručně data do jednoho sešitu na malém LK a do druhého na velkém LK a poté se to bude tahat třetím sešitem a tam se to bude i opravovat a vyhodnocovat, případně tisknout...

Míracitovat