Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon gmunser vom 24.05.2019, 14:17 Options
appen + print #1
Hallo!
Ich habe in Excel-VBA ein kleine SUB die unter Office 2000 perfekt funktioniert hat. Nach Update auf Office 2003 kommt auf mehreren Rechner der Fehlercode 53 beim Befehl Print.
Auf dem Entwicklungsrechner, einziger Unterschied, hier ist Visual Studio installiert, gibt es keine Problem.
irgendeine Idee?
Sub DatenhistorieKundennummer()
' Erledigt am 24.10.2003/17:00 Uhr
Startspalte = Worksheets("Steuerdaten").Cells(5, 2).Value
Startzeile = Worksheets("Steuerdaten").Cells(5, 3).Value
Änderungsgrund = Worksheets("Steuerdaten").Cells(Startzeile + 7, Startspalte).Value
Datenzeile = Worksheets("Steuerdaten").Cells(Startzeile + 1, Startspalte).Value
Datentrenner = Worksheets("Steuerdaten").Cells(Startzeile + 5, Startspalte).Value
Dateiname = Worksheets("Steuerdaten").Cells(Startzeile + 3, Startspalte).Value
Datenverzeichnis = Worksheets("Steuerdaten").Cells(Startzeile + 4, Startspalte).Value
Gesamtname = Datenverzeichnis + Dateiname
AnzahlVerarbeitungen = Worksheets("Steuerdaten").Cells(Startzeile + 2, Startspalte).Value
Open Gesamtname For Append As #1
Print #1,
Print #1, Datentrenner, Änderungsgrund,
For I = 1 To AnzahlVerarbeitungen
FeldZeileDB = Worksheets("Steuerdaten").Cells(Startzeile + 7 + I, Startspalte).Value
FeldInfo = Worksheets("Kundendaten").Cells(Datenzeile, FeldZeileDB).Value
Print #1, Datentrenner, FeldInfo,
Next I
Close #1
End Sub
Ich habe in Excel-VBA ein kleine SUB die unter Office 2000 perfekt funktioniert hat. Nach Update auf Office 2003 kommt auf mehreren Rechner der Fehlercode 53 beim Befehl Print.
Auf dem Entwicklungsrechner, einziger Unterschied, hier ist Visual Studio installiert, gibt es keine Problem.
irgendeine Idee?
Sub DatenhistorieKundennummer()
' Erledigt am 24.10.2003/17:00 Uhr
Startspalte = Worksheets("Steuerdaten").Cells(5, 2).Value
Startzeile = Worksheets("Steuerdaten").Cells(5, 3).Value
Änderungsgrund = Worksheets("Steuerdaten").Cells(Startzeile + 7, Startspalte).Value
Datenzeile = Worksheets("Steuerdaten").Cells(Startzeile + 1, Startspalte).Value
Datentrenner = Worksheets("Steuerdaten").Cells(Startzeile + 5, Startspalte).Value
Dateiname = Worksheets("Steuerdaten").Cells(Startzeile + 3, Startspalte).Value
Datenverzeichnis = Worksheets("Steuerdaten").Cells(Startzeile + 4, Startspalte).Value
Gesamtname = Datenverzeichnis + Dateiname
AnzahlVerarbeitungen = Worksheets("Steuerdaten").Cells(Startzeile + 2, Startspalte).Value
Open Gesamtname For Append As #1
Print #1,
Print #1, Datentrenner, Änderungsgrund,
For I = 1 To AnzahlVerarbeitungen
FeldZeileDB = Worksheets("Steuerdaten").Cells(Startzeile + 7 + I, Startspalte).Value
FeldInfo = Worksheets("Kundendaten").Cells(Datenzeile, FeldZeileDB).Value
Print #1, Datentrenner, FeldInfo,
Next I
Close #1
End Sub
Ähnliche Themen
Lexmark Print Server
kewo 04.03.2007 - 71 Hits -
xml : pretty-print
micky01 12.12.2007 - 104 Hits -
Network Print Port
1.Feivel 23.01.2008 - 53 Hits -
Print Artist PC CD-Rom Version 3.0
Version3 26.02.2008 - 81 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
