VBA.Mania

vbamania.pl

Dziś jest sobota, 18 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	błąd 400 otwarty rozpoczął: sewer_zdw postów: 5

napisał: sewer_zdw postów: 28 umieszczony: 27 sierpnia 2007 18:00
	powracający błąd "400" i dwa przyciski OK i pomoc ( oznaczenie graficzne błędu czerwony krzyż pochylony 45 stopni. wydruk idzie ok ale nie powraca do arkusza "start" wyjasnienie; W arkuszu Start zagniezdzony mam button drukujacy arkusz "FAKTURA PL" kod vba przechodzi na arkusz FAKTURA drukuje go ale pozniej wywala błąd "400" - i nie powraca już do arkuszu START. Sub Drukuj_arkusz2szt() w = "FAKTURA PL" Sheets(w).Select ActiveWindow.SelectedSheets.PrintOut Copies:=2 Sheets("START").Select End Sub problem stanowi ten oto kod. moze macie inny sposób na drukowanie odpowiednich arkuszy. nie musza ane byc aktywne. - taki tylko sposob znam. pozdrawiam

napisał: Trebor postów: 1209 umieszczony: 16 sierpnia 2007 19:56
	Chyba dalej błądzisz. Linia Sheets(1).Select nie podpiera się nazwą (name) a nr-em jaki posiada arkusz w kolekcji wszystich arkuszy. Nadanie mu innej nazwy niczego nie zmienia dla powyższej linii. Natomiast zmiana kolejności na pasku nazw arkuszy i owszem.

napisał: sewer_zdw postów: 28 umieszczony: 16 sierpnia 2007 19:46
	miałeś racje. teraz jest juz ok. błędnie zaadresowany był pierwszy arkusz.. zapomnialem ze nadałem mu inna nazwę. dzieki

napisał: Trebor postów: 1209 umieszczony: 16 sierpnia 2007 18:44
	Jeśli wydruk się dokonuje to można przypuszczać, że błąd następuje w następnęj linii tj Sheets(1).Select Czy arkusz pierwszy jest widoczny (nie jest ukryty)? Czy wykonuje się jakieś makro w chwili aktywowania tego arkusza? Czy w trakcie komunikatu błędu jakaś linia zmienia kolor na żółty (jest wyróżniana)? Pozdrawiam

napisał: sewer_zdw postów: 28 umieszczony: 16 sierpnia 2007 17:22
	witam. co oznacza błąd 400 bez zadnego wiecej opisu?? pojawia sie w trakcie drukowania markem arkusza, ale wydruk idzie Sub Drukuj_arkusz2szt() w = 3 Sheets(w).Select ActiveWindow.SelectedSheets.PrintOut Copies:=2 Sheets(1).Select End Sub Arkusze sa ukryte p[oleceniem: Sub auto_open() Sheets("START").Visible = True Sheets("DANE").Visible = xlSheetVeryHidden Sheets("FAKTURA PL").Visible = xlSheetVeryHidden Sheets("KOPERTA").Visible = xlSheetVeryHidden Sheets("FAKTURA ZAGR.").Visible = xlSheetVeryHidden Sheets("FAKTURA ZAGR2").Visible = xlSheetVeryHidden Sheets("KLIENT").Visible = xlSheetVeryHidden Sheets("USER").Visible = xlSheetVeryHidden odp = InputBox("Podaj swój kod:", "Kod dostępu") If Not odp = "" Then On Error GoTo blad user = Sheets("USER").Range("B:B").Find(odp).Value Exit Sub blad: MsgBox "Brak takiego identyfikatora na liscie", vbCritical, "Błąd" End If ThisWorkbook.Close saveChanges:=True End Sub Makro to uruchamia excela po podaniu zdefiniowanego wczesniej hasla.

wstecz 1 dalej

wszystkich stron: 1